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30 1. ABSTRACT 

Se 

ic} THE /5/6 HEAD AL NT VERIFICATION PROGRAM C RPOS, 

Sa OR REDE OD i ee erROedEETE afte EAFoR $0" 

gs ALIGN HE WITH AT VE’S TEST BOX. THE PROGRAM 

Se al O CONTA TAINS A UTIL Irv ROU NE WHICH PERF 5,000 SEEKS 

97 W TRANS: he" EK K rit TY ALLOWS THE OPERATOR 

Ss TOE ROSE THE D rare WI ia ipenbon ALI K IN PLACE AND THEN 

122 RE-VERIFY HEAD ALIGNMENT. 

101 

102 

103 2 REQUIREMENTS 

1 Bi Bie fe a kk TM de a ey aoe 

10s 

106 2.1 EQUIPMENT 

108 POP-11 PROCESSOR 

109 nenoRY 

110 Li 

ii2 KWi 1 ve T=B CLOCK 

it§ 11 oR RHZ0 i 04’S, RPOS’S, OR RPO6’S 

114 x He i PACK) 

11s Gren’. FOR RPOY’S 

118 , RoHS F 76'S 

118 2.2 PRELIMINARY PROGRAMS 

120 THE RPO4W/S/6 DISK SYSTEM MUST BE OPERATION AND ALL OTHER 

ie PROGRAMS IN THE SET FOR THE SUBSYSTEM MUST RUN SUCESSFULLY. 

123 

le's 

126 3. LOADING PROCEDURE 

+ oie tem. \ tr Sie cite cue ee 

127 

128 THE PROGRAM may PE LOADED FROM PAPER TAPE USING THE ABSOLUTE 

Les LOADER OR IT LOADED FROM THE APPROPRIATE *XXDP’ MEDIA 

130 USING THE Associa’ ED LOADER. THE PROGRAM MAY NOT BE INCLUDED 

131 IN A *XXDP’ CHAIN 

132 

133 

134 

136 4. STARTING PROCEDURES 

137 

138 4.1 STARTING ADDRESSES 

i4c THE PROGRAM IS STARTED FROM LOCATION 200(8) IF THE ADDRESS 

142 OF THE RH11 OR RH70 WILL NOT BE CHANGED. 

143 THE 1PB0 RAM IS STARTED FROM LOCATION 204(8) IF THE ADDRESS 

144 Hil OR RH70 IS TG BE CHANGED FROM THE PRELOADED VALUE. 

14s (eee HE EC TION 4.4) 
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4.2 PROGRAM & OPERATION ACTION 

1. LOAD THE PROGRAM INTO MEMORY (SEE SECTION 3) 

2. LOAD ADDRESS 200 OR 204. 


3. SET THE SWITCHES AND PRESS ’START’ 


4. nidbepdirnindh re Malte protec K ae ee TO BE CHECKED AND 


S. FOR THe DRIVE TO pack’ To Re CKED. ALLOW FICIENT TIME 

REACH OPERATING TEMPERATURE AND 

$e st REFER T o Ret icaBLe MAINTENANCE PROCEDURES 
Cee AMOUNT OF TIME. 


6. SELECT THE oot Sad TO BE CHECKED IN RESPONSE °0 THE TYPEOUT 
ON THE TELE 


7. THE FOR T OF OPERATION: ENTER AN ’A’ 

iE THe PROgaan Te To Be USED, FOR MEAD ALGNENT; ENTER av" 
bonboe ap UTILITY IS TO ie 

8. F PN ocanb *A’ NT! rig The ORIVE. | 19. The PROGRAM MODE ee : 
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PROGRAM W TLL P NDER: 
CYLINDER YLINDE THE PROGRAM WILL 
T N KF HEAD ENTERED WILL BE SELECTED 
eee cae ate § HEED: aobede Galt “att 
S NCE MAY TERMINATED BY TYPING 
A rk RETURN TO THE DRIVE SELECTION 
Rout INE 
9. IFT BEING IN on YEE IFICATION” MODE AND SW<02> 
TREAD AND ares abones PRE ENT A an R DECTRAL > HiT 
SW< San eee, CHrIED WILL BE CHECKED 
10. N THE OPERATOR COMPL THE PRESENT DRIVE, CYCLE THE 
ORIVE VE DOWN BND TRONGFER 3 "Test X AND ALIGNMENT PACK TO 
HE NEXT DRIVES TO BE CHECKED N THE ALIGNMENT PACK HA 
STABILIZED, THE piEW DR IVE an ets SELECTED. IT IS NOT NECESSARY 
TO RESTART THE PR 


4.3 DRIVE SELECTION 


sh ° prive gh A EO bg i 100 mae DRIVE on oe 
TES CRE eacd, RLF NE EMR 

WILE vee JACCEPTE Rr ie ye PRO shea NOTE THAT THE DRIVE SETU 

(TEST B T PACK STABILIZATION) RUST HAVE 

BEEN COMPLETED” BEFORE my? pRIve is Is NOELECT ED. 


4.4 RH11 - RH70 UNIBUS ADDRESSES 
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13 700 
Fre” RHI TRHIOE RODRESS N RE 


OTHER UNIBUS ADDRESSES 


Loc TAG CONTENTS FUNCTION 

1144 TKS 17 a | TTY KEYBOARD STATUS REGISTER 
1146 1k8 17756e TTY KEYBOARD PUFF REGISTER 
1156 TPS 177564 TTY PRINTER 3 ATUS REGISTER 
11Se STPB 177566 TTY PRINTER FER REGISTER 
1244 PKV 194 KW11-P CLOCK VECTOR ADDRESS 
1246 PKCS 172540 KW11-P ESier Ber mearet 

1250 PKB 172S4e KW11-P COUNT SET REGISTER 

1 See PKC 172544 KW11-P ge RES STER 

1254 LKV 100. KW11l-L Lek VEC ADDRESS 
1eS6 LKS 177546 KWi1l-L STATUS REGISTER 


euc13 >=1...HALT 
psi... INA ett i ERROR TYPEOUTS 
a oc; 
get ts ae ie Ses HED ee, HEAD 
= cooly 
TS a OUT ACE K CENTER VALUES 


ON_A The sebcae par anon (I. A 11734) 


Bona 130r Th HReels ER IS 

tie * SWITCH GIST HE 

Pert OCAT be AT a he Ibe (8). THE 
Cres ARE ody THROUGH A eo 
e F "CONTROL G’. THE PROGRAM WILL 


TINGS. OF ROLLED 
RECOGN ant ig . 
TIME EXCEP N_THE PROGRAM 
is pr Y “PROCESS ay se fg A gi 4 
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*SWR = NNNNNN NEW =’ 
EACH TINE 3H TCH TTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 
THAGE MUS TERED. LEADING ZEROS ARE NOT REQUIRED., *RUBOUT’ AND 
*CON TRok unCT ONS MAY BE USED TO CORRECT TYPING ERRORS 
DURING TCH ENTRY 
ON SWITCH 


on PROCESSORS WITH TH HARDWARE SWITCH REGISTERS, THE "SOFTWARE’ 
"UP? seats ONT ALL pee R rte TCH REG TO T 
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BE FOLLOWED. 
er 
TEST ERRORS 
RPO4/S: 

HE PROGRAM CHECKS THA T aks: RO IS WITHIN + OR - 1S0 MICRO- INCHES 

RO-incHES Pe FoR cL Toe at 4 AND Sabo. TF A HEAD TS_FOUND THAT IS 

Sag vip 5 oH ShESO, "BiG fe ctu Pos|TiQN OF 
T RELA ive Tot HE YCEN TERE Tie entiaey OSE THE TUAL 
AL CHRENT OF H HEAD WILL YPED OUT; HEADS OUT OF TOLERANCE 
RIL’ NO? BE IDENTIFIED. ) 
RPOb: 


AE ACR RES AE DSN ak Re 


4 W + 

ie ee ete agar ERROR MESSAGE TS TYPED. THe ERROR 
nye tec tity ee. erst elise 

Bee perrerree alte GENTERC INE out. HEADS OUT OF TOLERANCE 


ENTRY ERRORS , 
a thr 3 NOT pecker PT DRIVE T 7. 
BER Reg at, ENTERED N RESPONSE TO THE DRIVE 
PROGRAM WILL T A ’?’; THE OPERATOR MAY 
me. procnen WILL ny ee vat see ep aly R_THAN 18 Sa met 
FOR RBde' Ss. "YP" Bn ThvaL 6 CYLINDER OR HEAD AD ee Ss CENTERED THE 
JECT THE ENTRY AND RETURN TO THE DRIVE SELECTION 
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ASSIGNED ARE CHECKED TO ENS T THE DRIVE ASSIGNED 
IS PRESENT, ONLINE, AND IS AN RPOY, RPOS, OR RPOG. THE es WILL 
REJ ag ASSIGNMENTS FOR DRIVES WHICH ARE NOT PRESENT OR ARE N 
SUBSYSTEM/DEVICE ERROR MESSAGES 


1. ‘RHi1 INTERRUPT OCCURRED (RPAS=0) - AN INTERRUPT 


SEG 0007 


C 
Cc 


SREB Pit BacNOye7 
3 


C 
c 
1 
1 
1 
1 
1 
1 


WONMUNE 


ALNMT 
12:49 


MACY11 30(1046) 


8.1.1 


O4-NOV-77 17:31 PAGE 8 


2. ‘UNEXPECTED ATTENTION OCCURRED’ - THE INDICATED DRIVE rae, 
BUT NO INTERRUPT WAS EXPECTED FROM THE INDICATED DRIVE 
3. ‘"MASSBUS PAR (MCPE=1)’ - A CONT BUS PARITY ERROR 
WAS DETECTED. BY HE RH11 WHEN THE INDICATED REGISTER WAS READ. 
4. ‘MAS PARITY ERROR (PAR=1)" - A CON Bot liter PARITY ERROR 
occ WHEN INDICATED REGISTER Nas WRIT 
Ss. s - THE PROGRAM FOUND THE °OPE’ 
eit set sepalanngraplanaee 
6. ‘RH11 OI ep ~- THE PROGRAM ACCESSED THE 
RH11 at Phe INDICAT AND RECEIVED NO RESPONSE. 
7. *DRIV DATA - THE {ATED faites COMPLETED AN OPERATION 
WITH THE INDICATED € ED ERROR 6 gt9458 
8. cpey tree ERROR’ - THE INDICATED DRIVE SIGNALED AN UNSAFE 
9. *HEAD OUT OF ALIGNMENT’ - THE INDICATED HEAD OF NOT WITHIN TOLERANCE. 
10. ‘HEAD TOO FAR OUT OF ALIGNMENT’ - THE INDICATED HEAD IS TOO 
FAR our ALIGNMENT FOR THE PROGRAM TO FIND THE TRACK 
CENTERLINE FOR THAT HEAD. 
11. OPERATION inh ~- THE INDICATED DID NOT COMPLETE THE 
RATION WIT. SECOND. 
le. OBER ORM BA RROR’ - THE PROGRAM ATTEMPTED 
riteefeaet a 3 SUCESSIVE MASSBUS PARITY 
PROGRAM ATTEMPTED TO CLEAR A ’PAR’ ERROR IN THE 
RIVE SAND A ITY ERROR OCCUR RED. 
13. ‘DRIVE be UNAVAILABLE’ - THE INDICATED DRIVE HAS GONE OFFLINE 
OR HAS BECOME NON-EXISITENT. 
RESTRICTIONS 


OCCURRED, BUT NOTHING ON THE MASSBUS IS INDICATING AN ATTENTION. 


BECAUSE AN ALIGNMENT DISK PACK IS USED ON DRIVES TESTED BY THIS 
PROGRAM, NO DATA TRANSFER OPERATIONS ARE PERFORMED. 


PROGRAM DESCRIPTION 


VERIFICATION MODE 
RPO4/’S OPERATIONS 
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370 
371 Me OC pRoes CHECKS HEAD AL NT AT CYLINDER 245, HEADS 0 
us Bi Ge Teaco: CE EMEA ate Be Oot enEE TP ea 
3c ouT OF 2 MORE CHEN THE SPEE IP TED AMOUNT . 
278 HEAD ALIGNMENT IS CHECKED IN THE FOLLOWING MANNER: 
a 
78 1. OFFSET THE POSITIONER TO +1200 MICRO-INCHES. 
f 
380 2. STORE THE SIGN CHANGE BIT. 
382 3. HE POSIT R_ IN THE OPPOSITE DIRECTION IN 25 MICRO-INCH 
383 TOCREMERTS. Dh DATIC THE SIGN CHANGE BIT CHANGES VALUE. STORE THE 
38S 
; TT T R TO - M - INCHES AT STEP 
37 4 OFFSET, HE POSITIONE 0 -1200 MICRO-INCHES AND REPEAT STEPS 
389 S. ote TWo_SI 1eNe6, BV Rone Than AND R REPORT IF THE 
390 Fees Tate go M Ba TONED 
331 pes “aR EY YLINDER 245 OR + OR - 350 MICRO INCHES FOR 
393 
394 AT THE ADS AT CYLINDER 24S AND FOR 
ae BEES oT En SESLINOEREN Arb EGE 
397 T OPERATOR MAY TERMINATE THE OPERATION AT ANY TIME BY TYPING A 
338 ’CONTROL C’. 
490 8.1.2 RPO OPERATIONS 
402 CHECK HEAD IGNMENT AT CYLINDER 496, HEADS O - 18 
403 at He CEN RS 80 AEAGS 6 Be br O, AND 18, AND RE - -vERF IES 
404 AL IGNMEN cvLI R Saat HEADS I? te OPERATOR WILL BE NOTIFIED 
406 IF A HEAD IS OU ALIGNMENT BY MORE 18 on THE SPECIFIED AMOUNT. 
497 HEAD ALIGNMENT IS CHECKED IN THE FOLLOWING MANNER: 
408 1. OFFSET THE POSITIONER TO +600 MICRO-INCHES. 
mes 2. STORE THE SIGN CHANGE BIT. 
413 3. TcReneh POSIT ONER IN THE OPPOSITE DIRECTION IN 2S MICRO-INCH 
4i8 MENTS TS UNTIL ONG Ae SIGN CHANGE BIT CHANGES VALUE. STORE THE 
416 
ae 4, OFFSET THE POSITIONER TO -600 MICRO-INCHES AND REPEAT STEPS 
418 2 AND 3 ABOVE. 
420 s ag? SIGN CHANGE OFFSET VALUES AND REPORT IF THE 
4e1 eereC Is MISALIGNED BY MORE THAN + OR - 
uee HICRO-T “INCHE OR CYLINOER 496 OR + OR - 175 MICRO-INCHES FOR 
ned 
425 REPEAT THE ABOVE SEQUENCE FOR ALL HEADS AT CYLINDER 496 AND FOR 
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HEADS O, 1, 10, 17, 18 AT CYLINDERS 8 AND 800. 
Hs ee a MAY TERMINATE THE OPERATION AT ANY TIME BY TYPING A 


431 8.2 ieee 

432 T 7pROGRAN he SELECTION FOR pou 

4 “* Is onrtes TED, 

4 STED 
3 cer REE tng en Mea 
437 e eth tors h HeAD® SELECTION WHICH IS NO 
438 SENT IN foe 

440 HE OPERATOR MAY TERMINATE THE OPERATION AT AY TIME BY TYPING A 

441 Teen fRBC 

a3 8.3 RANDOM SEEK UTILITY 

44s HE PROGRAM CONTAINS A url ITY rive be WHICH PE 5,000 (10) 
446 ANDOM SEEK Me HERO CHEC fe One ze UTILITY 
447 Lous THE OPERATOR? EXERC AD ASSEMBLY ON THE DRIVE AFTER 
448 

450 T TILITY D AFTER HEADS HAVE BEEN ALIGNED: 
451 ' ts aT i iy LE BIND HEAD ALIGNMENT IS RE-VERIFIED 
i Ror hog MU eee ga 
wou ouie: cy ne pou FOR of? HEAD SHAKE DOWN. 

456 THE OPERATOR MAY TERMINATE THE OPERATION AT ANY TIME BY TYPING A 
457 "CONTROL C’. 

458 

459 

460 

461 3. PROGRAM LISTING 
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464 
465 a 
466 .1IF NB <CZRI RPO4/S/6 HEAD ALNMT >,. TITLE CZRJCBO, RPO4/S/6 HEAD ALNMT 
467 001 .IF NB < 13 i > 
j KCOPYR t tC) 1976,1977 
46 :#DIGIT EQut NT CORP. 
420 sarin ' S. 01754 
472 ooo noc 
473 f NB <C. HESS>,;#PROGRAM BY C. HESS 
475 i STHIS PROGRAM ASSEMBLED USING THE POP=4 sh MAINDEC SYSMAC 
476 j SPACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 
478 "LIF 
38 “He RF ah, 30-8102 tL 
ler 050001 He TN 1 = 
. = 
482 {TIF NE SWR=1 -HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
483 - SBTTL t ONAL CH SETTINGS 
ues i SWITCH USE : 
487 "1IF NE iH 15 HALT ON ERROR 
488 HE at 14 LOOP ON TEST 
488 Soe TIF NEO 5 ar’ 13 INHIBIT ERROR TYPEOUTS 
491 3% 1 INHIBIT TRACE TRAP 
492 IFF 
493 oo2 LIF NB «> 
4S4 ;# 12 
HgE 001 y 
des 300 ‘i 
49 a i NE oDBHOOOESSUR, ; # ll INHIBIT ITERATIONS 
Bog 001 [IF NE 0008$SSWR 
499 ; io BELL ON ERROR 
p° oo2 Tee © 
502 ; 10 
503 001 * ENDC 
ee est FRO Te 0010008SSWR 
506 ;% 099 LOOP ON ERROR 
2be oo2 TE Ne <LOOP ON ERROR> 
509 ;% 5 LOOP ON ERROR 
001 * ENDC 
060 “ENDC 
001 


TE hor NDF SSWRMK , SSWRMK=0 
‘HP 377? 8 LOOP ON TEST SWR<7:0> 
IF E <Seurrne37 27>- 300, :+ 8 LO TEST 
-LIF soo: 8 LOOP ON TEST 
-ITIF EQ (SSWAMKES7?> -340) 8 LOOP ON TEST 
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OPERATIONAL SWITCH SETTINGS 

.IIF €0 Seuernta77)-aeh, ;# 8 

HE EG SERRE“ is 

; pa Q@ <SSWRMK&377>-376, ;# ra 

“TF NB <> 

;* 

: : 0 $07,S06,S05,S04,S503,S02,$01,S00 
ty 28°, gery 
[TIF NB <SOS>):# 3 30s 
- TIF <SO4>,;% 4 

He Ne (208) "35 3 502 
° 99 

IF <501>; 3% 1 sol 
te < > i 0 500 
“THE NB Otis H 

LIF NB «>,3% 5 

LIF 4>,3% 4 

“HE Ne <>, 2% 3 

- F <CHECK ONLY THE SPECIFIED HEAD>, 
HE te Oo te + 

-1TIF <>,;5% 

LIF NB <>,;% 6 

TIE (>,;% S 

HE : <>,3% =) 

LIF 4>,3% 3 

-lIF <>, 2% 2 

tt : <LObp ON “5 CURRENT HEAD>,;# 

: FMB cts 

LIF (>,3% r=) 

- LIF (>,3% 5 

-IIF NB <>,;# 4 

HE Ne <>,3% : 

LIF (>,3% 

“TE NB (TYPE ENTER VALUES? 
erat BASI ALL TRACK C - 


: PINT TIAL ADDRESS OF THE STACK POINTER ##8  ##% 


SEG 0012 
LOOP ON TEST I 


N SWR<3 
E8Be SN test iN SHRsT 
SWR<O 


LOOP ON TEST IN 


2 CHECK ONLY THE SPECIFIED 
LOOP ON THE CURRENT HEAD 


0 TYPE ALL TRACK CENTER VA 


OF ERROR CALL 
ON OF SCOPE CALL 


STacks 

-#INITI SS OF THE STACK POINTER ### 1100 ### 
as A, 1100, . 

“EQUIV EMT, ERROR ; BASIC DEFINITION 

“EQUIV IOT; SCOPE ::BASIC DEFINITI 


; *#MISCELLANEOUS DEFINITIONS 


ESReB Pin BMcNOV—?7 Tes le: 4s 


aE 
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hats 


ie Glee 8S 


ata 
es] 
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20 


UU Un 
Be NEN LUO 


hs bs be be be be bee be 
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624 
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58 
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NITIONS 


sla 177774 


BoisP= 177600 


‘7 TAS 


ia ei URN-LINE FEED 
i Soe 


TACK LIMIT 
oe H TERRUPT TRE quest REGISTER 
Su ToH REG TER’ 
WRECTSTER 


BS 
Pu 
L 
g 


d 


O-Macur 


— 
BBSSS tu 
SHH nHnhnhnnnKknhnhhnnnnn 


fee SERS 


BistER” SWITC 


4000 


EQUIV ,SW9 
: Vv au 
He v * Swe 
SEQUIV Sus 
EQUIV SwO4) SW 


RG= %0 33 STER 
Ri= % $3 rat i TER 
Re= 7 $3 RAL TER 
R3= % $3 RAL REGISTER 
RY¥= “4 $3 RAL TER 
RS= “Ss 33 RAL TER 
R6= %b 33 RAL TER 
R7= %7 33 a T 
| A %& ae an 
C= “47 $3 OUNTER 
#PR TY FINIT 
bros g a ;SPRIOR TY LEVEL O 
- PRi= 40 3;PR TY . 2 
PRe= 100 ;;PRIORITY LEVEL 2 
PR3= 140 ;;PRIORITY LEVEL 3 
PRY= 5 FORE OR TY LEVEL ¢ 
PRS= 4 s;PRIORITY L L § 
= ;;PRIORITY LEVEL 6 
PR7= 0 ;;PRIORITY LEVEL 7 
A ae H DEFINITIONS 


SEQ 0013 
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INITIONS (BITON TO BITS) 


ee 
Sens ws 
unnuD 


wii 


AAA AA ttt 


seeeeeeeeee 


Staten tity 
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AAA AA 
OK NW CHE Ow 


"IF B «> 

: Ic “CPU” TRAP VECTOR ADDRE FF aw 

é =4 i aseny AND OTH R ERRORS 

RES ECs 10 ee AND ILLEGAL INSTRUCTIONS 

TBITVEC=14 " 

TRIVEC= 14 

BPTVEC= 14 BRESKPOTNT TRAP (BPT 

10T c= 20 cen Pal TRAP (OT) #eSCOPER* 
= 

ENT C= 30 EMULATOR FRAP (EMT) #*ERROR#* 

RAPVEC=34 i TRA 

TKVECS 60 KEYBOARD CTOR 

TPVEC= 64 itty PRINTER VECTOR 

PIR VEC=e40 pods: INTERRUPT REQUEST VECTOR 

LIF 

jj SERONNONaaeenannonesnenanennennenanenuenaenanecaecaneanenaees® 

“NLIST 

“REPT 

LIST 


SEG 0014 
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EZRICB. P11 O4-NOV-77 12:49 IC DEFINITIONS «SEQ OO1S 
oes ee RR ee et ke en ee eos 
“E 


ooo ER é 


-SBTTL RH11 REGISTERS 


SINC TOC OOOO 
stoi tbs Supa Ai ties wf 


Bach Biv 18 CALLED BY BIT NUMBER) 


IF 
oi jjaenaennee KERSEKREAEKRRESRSSELAKAASRERASSAASAAHAAAKRAEHRKRRAREAARKAEE 

“NLIST 
5 ist 
jAERRAHAneaeeeneneeenenenenneneessneerensnecenneccenseceeneneess 

704 “ENOR 

705 -LIST 

206 000 ~ ENDC 

708 sCONTROL AND STATUS REGISTER 1 (RPCS1) 

710 000100 IE= 100 ; INTERRUPT ENABLE (BIT #6) 

711 gog200 ROY= :READY (BIT #7) 

cig Alb= 4 >HIGH R Bus ADDRESS BIT (BIT #8) 

713 001000 Al7= 1 tH GH eR 1RODRESS BIT (BIT #9) 

. = H 

7i5 = i ACoBLSS Bari Py ERROR (BIT #13) 

716 040000 TRE= 40000 : TRANSFER ERROR (BIT #14) 

o12 ;SC= 100000 :SPECIAL CONDITION (BIT #15) 

719 

720 

7el 

722 ;BUS ADDRESS REGISTER (RPBA) 

323 > (EACH BIT IS CALLED BY BIT NUMBER) 

225 ;CONTROL AND STATUS REGISTER 2 (RPCS2) 

727 000001 USI= 1 ; UNIT CT (BIT #0) 

728 000002 USe= 2 > UNIT LECT (BIT #1) 

353 p0 ere e PUNET BBRESS IACRENENT INHIBIT (BIT #3) 

Ss . 

731 Boogen Bats 38 ; tY Teor (alt #4) 

732 000040 CLR= 40 *CLEAR (BIT #5) 

733 990190 IR= 10 > INPUT Y (BIT ab) 

re epsc05 ce Seas BUS PRRII ERROR (Bit 4 

736 1 14 {BBC MI ER ERROR (Bit HH 

737 002000 PGE= ; RROR (BIT #10) 

004000 NEM= 4000 : NON EXIS NT MERORY (BIT #11) 

725 010000 NED= 10000 ?NON EXISTENT DRIVE (BIT #le? 

740 0000 UPE= 2000 ;UNT BUS ITy ERROR (BIT #13) 

741 0600 WCE= 4 WR CHECK ERROR (BIT #14) 

742 100006 DLT= 1¢0000 :DATA LATE (BIT #15) 


CZRICBO 
CZRICB.P11 


000 


001 


RPO4“S’6 HEAD ALNMT 
O4-NOV-77 12:49 
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RH11 REGISTERS 
;DATA BUFFER REGISTER (RPDB) 


; (EACH BIT IS CALLED BY BIT NUMBER) 


-IF B 
5g MAM EERE EERE REE EERE EES 


REET 


. T 
5s > SHRAKAERAAAAAELASSESAAAAARAERAKARKAAKAAKAALRAAARRARLARAAKEAAAA SESS 


{LIS 
*MLIST 
“ENOR 
“LIST 
 ENDC 


-SBTTL RPOY/S/’E REGISTERS 


-IF B , 
5, SHRERRAERESEKREAAAALAKAARAARKAKLAAERAAAARASHAAARAAAARLAARAAELKES 


° T 
5 RARALKLALKAAKELAAHLALALKLALALERLLAAARKELAAAALAALAAEKALARALKRARHLEK 


LIs 
"ALIST 
7 ENOR 
“LIST 
> ENDC 

;CONTROL AND STATUS 1 REGISTER. 


OF @ 
IGB= y 
oe 10 
= 

1= 66 
VV= 100 
DRY= 200 
PGM= ie 
LST= 
bas 400 
MOL= 10000 
PIP= 20000 


af 
$3. 


SEQ 0016 


SEG 0017 


E0e 
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ESRJGB Pil Bacnov-97 1es49 


cq ~ i 
B tap | aS 
a 
i _ 
a - -_ 
ce) Lan) qa 
~~ an aw i 
ro _ aw _ 
Qa ~ Bs m =u “WoO 
WwW ’ sz AH BSxT Bu) 
8 = wus os F- 
~ “ea ero FO 
aw aAnk “ &eoOreBe ae bh) 
re oO-wW w Saher “= = Ww QMO-ms-- 
—8 ssc 2-0 ~s-o - —~ e~w “MMT WNwON Oo 
oa at Satna - -oQ Tre - sx {vv} ol al el ool el al ol 
poe aad ey oa ed Yee Lae) ~ eh D4 R a tt 
—@ OO 2 sOr- Qo -20 @ ode Qoaooaooom 
~ acer Ww Or w RAAA AN ENON Se ee oo 
Ww COnmm I~ r O-UMTNOK. 
> W-@OM@e a al al af at ae a BRSNRBRARE 
oa] eae ES JU ~ be 
zr leaded ua Ze alan lan lenlanians PR ee 
ig Wl) 4a4jj 4 O-40-4 40-49-4404 4 
Ww o Orteteet ee festeslesleslesleslertes] 
coal = er ee ee ee ee 
wg CHESESMEgSeNE SOS §« FBEETTY eee 
= a om? 4 OnUMTMwOK > >>> 
embed oO NO eee oe anol uel sl eel ol cl 
oe ra Sree ZESESSS F wus Wiss 
ul og queue ZZz2Zz2ZzZz Atte > >> 
= ered >> >>>>>> Be 


Baaadaaa 


Sz save Ce Cuaeagakas 


100000 
;ERROR REGISTER #01 (RPERI1) (#02) 


40000 - 


; RE CTOR/TRACK my SS REGISTER (RPDA) (#05) 
PERCH Br? fs CALLED BY iT RUNBER) 


;ATTENTION SUMMARY PSEUDO-REGISTER (RPAS) (#04) 
;DRIVE TYPE REGISTER (RPOT) (#06? 


;MAINTAINABILITY REGISTER ‘RPMR) (#03) 


oO oo 
2008 oo0ss oO0000 
aut ur -uT _ “urTr-ur “UT usr “UT usr fu 

“ 
Ty “uux “ ununnnunun 
“uu Hunnnnnnonnnnnun uUxxOn u> nunnnnne Owls wwKr. 
fj uo b Srtatataras WW jZe w O-—UMTWwOL 00000000 
- pe weCe? 5% oO 2-7 - [ol cool aun andl ead sand el od el ee ee ee 
wc Heo Swrlrac320 a = Qa aaqaqdaaqca Q0000000 


Lf lUr 


Sesssubsetacaasdadsassensseusseonuaes 


837 
638 
839 
840 
641 
84e 
843 
B44 
B4S 
B46 
647 
846 
849 
850 
851 
8Se 
8S3 
es4 
sss 


; -NOV-77 17:31 PAGE 18 son tied 
CER BO FPO EO Ore? ie. 49 — RbAa eye RecisteRs 





' R BIT 9 
400 IVE TYPE , 
gee acti Bags 4000 IDRIVE Re ats ms (BIT #11) 
6S iT DRIVE ( a 

B53 rude Noaz tok tNOT BLOCK ADDRESSED (BIT #15) 
Be ;LOOK-AHEAD REGISTER (RPLA) (#07) 

" xT1= BOENSION 2 EH #0) 
ged sata = EXT ON 2 (BIT #1) 
Bee DO0004 Ge : EXTENSION 3 (BIT 42) 
BB ie ig Baba gH 
Be3 ete ‘i2* to ee OR COUNT 1E.8 Q (BIT 6) 
a - ane: etm cat Fee 2 att 
ere betg= 2ECTOR COUNT F ELD 3 (BIT #9) 
eu ae ety Gaur FIER 2 (BR fio 
es rye reds = 10850 TRACK FELD (Bit #12) 
| OR iia. Se Tes HES @ EH She 

iy 
B78 100000 Texsb=  tpeobo iTRACK FIELD & (BIT #19) 
Bet SRPOY ERROR REGISTER #2 (RPER2) 
a2 ar 
gee 8] cSu= 40 
Bee pooses ToF= 40 (BIT #5) 
889 00 TUF = 9 
2 iS ie ie 
RBS ne: iB 
Ba4 Ixe= 4000 
gs eed yus0= 19000 
Bae 190000 ACUs 100000 
Bae ;RPOS/6 ERROR REGISTER #02 (RPER2) (#10) 
* T #0) 
oe | SATE, PRUE WEIS (BLT 0) 
305 fue |G HURIT CT UNSAFE (BT! a2) 
SBS ee Pegi a GaS | 
306 ones 6 iT T DETEGTOR FAILURE (BIT #5) 
| a i TRANS E (BIT #6) 
07 000100 TUF= 100 :TRA oUNSEEE (81 
5504 + nt at y UNSEEE. (BIT #8) 

313 00800 Noes 1980 : ote Na IPLE HEAD SELECT ( ait #9) 
ai? 602006 NHS= 2000 'NO HE 


CZRICBO, RPOY/ 
CoRICB. P11 
91 
315 
914 
91 
$1 
$1 
$18 
$19 
920 
sel 
g22 
923 


sia Mab A a ERP RRP RE ene Ry 


Buenov-?7 


ooo000 


ALNMT 
12:49 
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*RPO4/S/6 REGISTERS 


IXE= 4000 ; INDEX ERROR (BIT #11) 

PLU= 20000 ;PLO UNSAFE (BIT #12) 

; OFFSET REGISTER (RPOF) (#11) 

OFB= 1 ; OFFSET MICRO INCHES (BIT #0) 

OFSO= e ; OFFSET RICKS INCHE (ont #1) 
100= ; OFFSET MI INCHES (BIT #2) 

= 49 ; OFFSET MICRO Mee i] #3) 

400= ; OFFSET MICRO INCHES (BIT #4) 

OFBO00= 40 ; OFFSET MICRO INCHES (BIT #5) 

OFREV= ae ;OFFSET NEGATIVE (REVERSE) (BIT #5) 

HCI= ;HEADER COMP INHIBIT (BIT #10) 

ECI= 4000 ;ERROR CORRECTION CODE INHIBIT (BIT #11) 

FMT22@= 10000 ;FORMAT BIT (BIT #le 


DE IRED INDER ppoRs 8 (RPCA) (#12) 
; (EACH BIT IS CALLED BY BIT NUMBER) 


; CURRENT EYL INQER ADDRESS (RPCC) (#13) 
; (EACH BI CALLED BY BIT NUMBER) 


;SERIAL NUMBER REGISTER ( » (#14) 
+ PERCH IS CALLED gt Me ER) 
;RPOY ERROR REGISTER #03 (RPER3) (#15) 


PSU= 1 ; PACK ED UNSAFE (BIT #0) 

VUF = e ; VELOCITY E (BIT #1) 

UWR= 10 ;ANY UNSAFE EXCEPT READ/WRITE (BIT #3) 
ACL= 40 ;AC LOW (BIT #5) 

OCL= 100 ;0C LOW (BIT #6) 

SKI= 40000 5 BEEK INCOMPLETE (BIT #14) 

OCYL= 100000 ;OFF CYLINDER (BIT #15) 


OCU= 1 ;0C a5 (BIT #0) 

WAG= 2 ;WRITE OFFSET (BIT #1) 
ACL= 18, ;AC LOW (att #S) 

OCL= 1 ;0C LOW (BIT #6) 

OPE= 20000 ;OPERATOR PLUG ERROR (BIT #13) 
SKI= 40000 ;SEEK INCOMPLETE (BIT #14) 
OCYL= 100000 ;OFF CYLINDER ERROR (BIT #15) 
;ECC POSITION REGISTER (RPEC1) (#16) 

; (EACH BIT IS CALLED BY BIT NUMBER) 

;ECC PATTERN REGISTER (RPEC2) (#17) 

; (EACH BIT IS CALLED BY BIT NUMBER) 


-SBTTL TRAP CATCHER 


-=0 
;#ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A “.+2,HALT” 
;#SEGUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 


SEG 0019 
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CZRICB.P11 O4-NOV-77 12:49 RAP CATCHER SEG 9020 
38 fe j#LOCATION, o CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
>| 
74 : SOFT AY RE R 
SB ae guerre ERB 8  SOETOORE SLATER ABERLRER 
97 we STARTING ADDRESS(ES) 
974 IMP as : JUMP TO STARTING ADDRESS OF PROGRAM 
a7 000 .ENDC 
377 .SBTTL PROGRAM STARTING ADDRESS = 200 ; 
000200 2 
978 9002 137 001460 IMP STARTI ;START THE PROGRAM, USE THE DEFAULT RH11 ADDRESS 
380 pboco4 poo, 001450 JMP START :START THE PROGRAM, CHANGE THE RH11 ADDRESS 
gee .MACRO MORETAGS 
983 1” = is 
= 
"Shes ; SS OF TE 
ss we ie SRYOEE.O FRAT P RB vce ene cas 
387 AT Ne : ; T REGIS R STORAGE | FOR AEBROR MESSAGES 
3 ei tee Fig A Bd al 
TIND: ; t i INDICATOR 
za Einune: HB § a ie EH Sfdeep. 
994 t Ra 0 : PONTHI NS T VALUE READ FROM HE REGISTER 
995 OL iS “WORD 5 EACTGNRENT 7 PRESENT CYLINOER 
33 MAXCYL: | ‘CONTAINS THE MAXIMUM CYLINDER ADORES 
352 MAXPOS: . 0 + ented HAST RUNS BOsITIVE OFFSET 
i er te Sui READ DP GEEANG Si] 
1000 XOFF: - * CONTA OF OFF ITIONS 
1001 OUTTOL: ; : ic TAINS T FOR JNNER AND OUTER CYLINDERS 
1908 MIOT “HORB : CONTAINS T FOR THE ALIGNMENT CYLINDER 
109 NCYL: : 0 H R CYLINDER 
ieee Sipe: HERB SLIRRTEN seed peceeres® | 
6 ; : CONTA T S FOR INCYL’ & ‘OUTCYL* 
ie By ee | Rag pele Stee as 
is8 a ce pele 
1041 PKCS: “WO! 172640 ;KML1-B CONTROL AND STATUS REG. 
ibis PKE WORD 138245 KW ix & TER 
i014 LKV ‘wORO 100,102 ‘KWI1-L VECTOR ADDRESS 
1015 LKS ‘WORD 177546 :KW11-L STATUS REGISTER 
ae at 
1-15 .SBTTL RH11/RPO4/S/& ADDRESS & VECTOR LOCATIONS 
1021 STARS 
ide2 SRPADR: .WORD 176700 ;RH11/RPO4/S’& UNIBUS ADDRESS 


OO 
0b b= hs bs Bo = oe oo 
els) GG 
SREB RE NRRD 
— “I 


YOo00000 
DIRE 


ty 
0 


Boe Ot Ba enbeo es 


I 
Ay OV ELLER Pasta ZookZiD 


SRPVEC: .WORD 254 
,5ron MORE TAGS 

. MAC SSCMREG A,B 

SREG’A: .WORD 0 


-NLIST 
SAL SSCHI +} 

$c . Me+e 

; SSCNREG 
.MACRO SSCMTMP A 
STMP’A: .WORD 0 
.NLIST 
SCHA=SCIM+1 
[ENDM $$CMTMP 


0e 
oose 21 


;RH11/RPO4/S/6 VECTOR ADDRESS 


;;CONTAINS ((SREGAD)+’°B) 


;;USER DEFINED 


SEG 0021 
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CZRICB.P11 O4-NOV-77 12:49 COMMON TAGS SEG C022 


1940 .SBTTL COMMON TAGS 
1042 001 IF B 

thea || EEN HWeNaNaenannenensenensnnensnsenanaenannenensenaeaenensnsenes 

104S -NLIST 

iB ey 

aH 4 ian FT enseannnenesnnannnseennnenseonanassnasensosonasoonesoneneess 

10S0 “EROR 

1051 IST 

1052 000 

1053 je THIS TABLE CON CONTAINS. VARIOUS COMMON STORAGE LOCATIONS 

1084 “USED IN PROGRAM 

1056 001 ~ NB 

10S _ 

1058 _IFF , 

1058 001100 “ =1100 

1864 001100 we scr AG: ;;START OF COMMON TAGS 

1DeS 7 -.WORD O 

1064 .IFF 

1065 001100 900000 Sen .WORD O — PASS COUNT 

1De +] 11 we i BO : .BYT 53C TAINS TES r _ilunBeR 

1068 are ee Sehr: “BY g t Contains 

1068 901108 o00000 ICNT: -:WORD 0 ua § ae TreRari0n COUNT 
1071 001118 09000 PE : WORD i conra URN F SB ap ORS 
1076 | tite SERTTL: “WOR C 33 CONTA T cae ERRORS DETECTED 

1B 1115 at RMAX: “BYT 1 +t EONTA MAX. ac ERRORS PER best 

1 1116 “ee ?:CONTRINS PC OF LAST “INSTRUCTION 
10 11 GDADR: :WORD 0 ? CONTA Sor *GOOB’ DATA 

1 il as :: CONTA OF ’*BAD’ DATA 

1 11 T: : CONTA , TA 

10 1126 (a >; CONTA ’ ona 

1080 ie - WORD - t:RESERVED--NOT TO BE USED 

1 11 SAUTOB: :BYT 0 AUTOMATIC MODE INDICATOR 

ibe 1135 SINTAG: -BVTE + ONTERRUPT MODE INDICATOR 

1085 1140 SUR: > WORD Ds 33 S OF SWITCH REGISTER 

1086 1142 DISPLAY: as ISP HE Or LAY REGISTER 

1 1144 KS: 177 tiTTY K TA 

1 il $TKB: 177562 ,  EETTY K F 

1 11 STPS: 177564 ' S2TTY PRINTER STATUS REG. ADDRESS 

1 11 $TPB: 1 6 ::TTY_PRINTER BUFFER REG. ADDRESS 

1031 1154 SNULL: -BY re) i ;CONTAING NULL C TER FOR FILLS 

10 1i5s SFILLS: :BYT 2 :: CONTAINS # ILLER CHARACTERS REQUIRED 
1093 1156 $FILLC: :BYT 12 :: INSERT PILL CHARS. AFTER A “LINE FEED” 
1094 1i€ STP. LG: “BYT 0 ::"TERMINAL AVAILABLE” FLAG (B1T<07>=O0=YES) 





aaaa5 SS 
ee 


BO IVTALOUS 


0 


Oh oo he ee 


Oe ee ne Be be ho be he ae ae en ae be he Be bn ee fe hs Pe Pe he fe Pe Pe ee 
OONOU CWO 


Bw NO Le 


Lt) 


Oe te he ee ne ee ae be ee hn be he Be be ee ee Be fe fe Bn he ho ne be Pe Pe pe ae Be ne ee fe ne ee Pe 
Ww) 


he 
OO SOIPH LOMO DOIN E 
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Bacnov—?7 12:49 COMMON TAGS SEG 0022 « 
FF 
-NLIST 
Schi3= 
000 E 
001 .IF NE SCM3 
“est ;;CONTAINS THE ADDRESS FROM 
sagen scstte t:WHICH (SREGO) WAS OBTAINED 
.NLI 
CM1= 
cist , 
; .REPT  $CM3 
SSCMREG \SCM1, \SCN2 
-ENDR 
ooo .ENDC 
001 : IF Ne 
= M4=0 
ut 
SSCMTMP \SCM4 
; 40 
on stimes: 9B a ;;MAX. NUMBER OF ITERATIONS 
-_ rer ;;ESCAPE ON ERROR ADDRESS 
‘ por SWR 
wk fe ennsss <207><377><377> ;;CODE FOR BELL 
7 g to AA ;;QUESTION MARK 
sol er: at) (ie one eee 
nae iif NE i8., wast me 
|  SUESUESESESNOSESEENORENELSSSSSESRESESEDBERESESSEODEOREDRESOOED 
{NLIST 
Ne} 
j[AaEANARENAAHNeEEneeneseeessenasenasacesantnsannaeranennaetans 
"ALI 
“ENOR 
“LIST 
000 - ENOC 
901 AF A 
“MCALL .SAPTBLS 
“LIS 
.SAPTBLS a 
000 .ENDC 
001 ‘IF NB <MORETAGS> 
000615 ¢R = 1s 


EER ICBO, ‘wet HEA ALNMT MACY11 TRUONG), Ba-tover7 17:31 PAGE 24 


12:49 SEG O0e4 


fu 


F 











ola 


«+ 
os 
z 


nang 
38 56a" = m- 


++ 










+ 
ees eees 


DC 





eee Minit Sessnces 











B 
Ty ec eeeseeeeeeneUEEeeeeeeeneneseunnnnaceesessuusuneneseneeenenae 


1164 WORD : 
4 O011 
; 2, Oe 

il 

1174 t 

01 : ; FS 
23 Bpt fl INDICATOR 
ee ee ee 

5 i or ; IGNMENT NTeCYLINDER 

S lel RAXEYL: “WORD 8 th TROER ADDRESS 
B Bal nesros: <1 HY ER 
5S iolees ere “He A Havel ECA 
Big migeNt: “HepB 
74 1 7 Bh. 0 1 args FOR *INCYL’ 8 ’OUTCYL’ 
7S : T BLEe: 0 SET CODE TABLE 
38 : caaeiee SHGADR: ; 5 - SS FLAG 
3 001350 . PKCS: “HORB 17e6%0 TUS REG. 
80 001 PKB: : 172542 FER 
g2 boi see 000102 cK: “HORD 106° ide tKWI1I-L vecr Raooress 
83 001262 LKS: ? 1 Hehe ;KW11-L STATUS REGISTER 
Bs 
a 
ge 


ee ee er ed ee ed ed ee ee eee ee ee 


Da a ee ee ee es ee be ae ae ae a ee ee nn ee an ae ae eae ee ee ee ee ae es fe ae ae as Be Be a ee Bw an be be Pe Pe an Be 


sige 
es ar 
3 Fc 
a Etst 
36 001 NBG 
4 .SBTTL RH11/RPO4/S/6 ADDRESS & VECTOR LOCATIONS 
200 ond jj SEAMMNNANaENseesaenenesueennaeeseensesaenseceaesnnnaneaecnes 
ene ry 
204 ‘LIST 
50 TAT pment Sen oot rae A 
207 
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CERICB-P11  QUSNOV-77 12:49 11/RPO4/S/6 ADDRESS & VECTOR LOCATIONS SEG 0025 
1208 -LIST ; 
1208 001 - ENDC . 
1318 BO18ee 08288 SRpveC: ti8RB BgR?°° (RLY ReDs86 VECTOR ADDRESS 
1214 000 - ENOC 


SRC Plt Baenover7 iesig | MOY} BRAGA POINTER TALE | MO OO Seo 0026 


iste .SBTTL ERROR POINTER TABLE 

1 :#THIS TABLE TAINS THE INFORMAT FOR EACH ERROR THAT CAN OCCUR. 
1818 :aT NF etoN i TAI BY iN Ofe NDEX R FOUND IN 
1818 5 #9 ATION SIT "Ye TH wl a t A ES MH CH iTen N T CPBLE Is PERTINENT. 
lee ENOTES: ACH ITEM if Fue Aare CONTAINE 4 DA INTERS SEP AINED AS FOLLOWS: 
1223 4 EM ;;POINTS TO Ti MESSAGE 

1224 ;# oH 5 POINT TO T TA HEADER 

lees ;# T ;;POINTS TO T TA 

leet : DF ;;POINTS TO THE DATA FORMAT 

lee 

1228 

1229 001270 SERRTB: 

1230 

1231 ;ERROR 1 

1233 901270 920506 —EM1 ;RH11 INTERRUPT OCCURRED (RHAS=0) 

1234 1 Dele DH1 

1235 go1e74 Oe 1626 DT1 

1238 1276 021740 DF 1 

1238 sERROR 2 

1240 001300 020547 EM2 ;UNEXPECTED ATTENTION OCCURRED 

ies Bi Elbe Ps 

134 BOL 3be etter g 
1246 ;ERROR 3 

1247 001310 020605 EM3 ;MASSBUS PARITY ERROR (MCPE=1) 

1e48 001312 021321 DH3 

1249 001314 021650 DT3 

1250 001316 021747 OF3 

1261 

1383 ;ERROR 4 

1255 001320 43 EMY ;MASSBUS PARITY ERROR (PAR=1) 

1256 001322 Beis ? DH4 

1257 001324 1660 DT4 

1258 001326 021752 OF 

1259 

1 001 0700 EMS ;ADORESS PLUG CHANGE BIT SET 

1565 Boisse bete44 ate 

1264 001334 1632 3 OTe 

1265 boi 336 021741 DFe 

167 ;ERROR 6 # 
1263 001340 020734 EME ;RH11 DIDN’T RESPOND TO ADDRESSING 

1270 O01342 021406 DHE . 


SEG 0027 


BO3 
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FE RROR POINTER TABLE 


3 JeB. bil’ BacNoweo7 tee 49 


i? 4 
oO 
a 
ag 
ra uj 
ci > 
4 
& & 
ra a 
« a : a 4 
° 3 . ‘ 2 S 
af ui = a — +» M3 os 
ui a 5 3 « 
a WwW > 
. Y t e a 2 
x ; bs a - % z 
- WwW > uw 
P . 3 é ” 
5 : : 2 2 
o000 “000 tutucuTy Ommm Trooo uw ww 
po a eS ee oS 
nn 4 _ aoa cont coal 4 coal 
5 S 5 5 5 5 5 S 


410 uU-w SN w0uW ™ “+00 uo 
Nr Raik Nor 86fO45 6 RBM CARR |RSS 
Tor Two. XN OOnNN “FON =O 


ae 6M Re ORSSS 858 SSS BREE BES 


tnd tot ot ot wrtmtndnd wo od ond tt wt od tnt nto 4 wnt ond ot one sn ham hae ba! 


88 8883 8888 8883 8888 seed sess 888 8 
SOA OR ORR U RR CREO RG ORE Ue CREM R RRS A TA 


Ok nd Oh nd Od od Od eh nd nd eh nd od dw at eh dd ed ah dd dd ded nd wd dn enn nd ded ed ed od ed od nh ddd ddd edd 
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CZRICB.P11 O4-NOV-77 12:49 ERROR POINTER TABLE SEG o0ze 
1327 GO1444 921734 DT16 
1308 001446 021740 OF 1 
1323 
1330 001 .IF 8 
13 ] g2 FSSSRESRAKAKSSSAKESAHRSHSARSRAESAAAAAARAAAAARAAARAAARALERARALARAFESES 
1333 : T 
133s "LIST 
1338 SG: gemeeearemennnpree  eapeee ranean” an Tp ET 9 gapepipae a we 
1 “E 
1 “Ed T 
1340 000 ‘ 
134 .SBTTL RPO4/S’6 DRIVER COMMANDS 
{Sua 001 .IF 8 
ie g ° rae gene nse See IES: RPE APSO POMPEII ORE 
1347 “NLIST 
8 Et 
1329 1g gqurmcnemneeneeneaanannnearecs =m tenmmescannatanene occa inaasaemateese atria matie: 
1352 “EMDR 
i353 “LIST 
1354 000 /ENDC 
1 900 RNOP= ;NO RATION 
1328 elap ioe] Gncomo= {54 +R SAB 
1358 000105 SEEK= 105 : SEEK 
1359 000107 CAL= 107 : ¢ I TE 
1350 ae pavetR= Hf) Pele fre 
1361 60611 L= 1 *RELE 
1362 000115 OFFSET= 115 OFFSET 
1363 000117 RTC= 7 RET T NTER LINE 
1364 BBB 21 SET= 18h RE iN Preset 
1365 000123 ACK= 123 :PACK ACKNOWLEDGE 
i paola prone 13 Ee arerens 

+ 4 2 

1368 Bogi43 Tents is3 :SET F mat ECI OR HCI) 
1370 01 HKD= 1 7 WR F K DATA 
137 30185 rate = 1 4 WR HECK HEADER & DATA 
1 54 00161 TOAT= 163 :WRIT 
1373 900163 WRTHO= 163 : WRITE oHeRDER & DATA 
ia i54 RBnp= 133 i REAB HEADER & DATA 
1377 
1376 001 IF 8 
1375 veer Z ape mat a aD NN Ache te A 
1381 ; T 
13e2 DEAF 
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CZRICB.P11 O4-NOV-77 12:49 RPO4/S/& DRIVER COMMANDS SEQ 0029 

T 

1364 Fit 

1386 -ENDR 

1387 -LIST 

1388 000  ENDC 

1380 .SBTTL PROGRAM START AND INITIALIZATION ROUTINES 

1392 001 .IF 8 

1333 7 © NT ET EMRE EERE I RISO SEN gai 

1395 “NLIST 

Be ey 

1336 Tat cameos omen amenycnenensonmmciene 

1400 

1401 - ENR 

i405 _ — 

1404 O014SO 012737 177777 OOle42 START: MOV 8-1, CHGADR ;SET CHANGE RH11 ADDRESS FLAG 

140S 001456 o00402 ER START FINISH 

1406 O0146C 005037 oDl124e : CLR GHGADA }CLEAR RHI RH11 CHANGE ADDRESS FLAG 

1407 001464 990005 : RESET HE BUS 

1408 v : sit TIAL IZE THE COMMON Tabs” 

1409 001 

1410 LEAR THe COMMON Tags (SCMTAG) AREA 

1411 901 12706 001100 ascn TAG, R6 ssEIBSI LOCATION TO BE CLEARED 

1412 1472 Baeaee COR (RE)+ CLEAR MEMORY LOCATION 

1413 001474 022706 001140 CMP #SWR,R& ;;DONE? 

1414 001500 001374 BNE .-6 akan BACK IF NO 

1415 B00 - NDC 

1416 1 .IF NB 

1417 nee MOV #,SP ;;SETUP THE STACK POINTER 

1419 001502 012706 001100 ‘ MOV #STACK, SP ;;SETUP THE STACK POINTER 

ie = Por sserup,sserup- 

14ee ja HY JF INE SOE rat aH a A FEW VECTORS 

i424 igs tt Hees ;;10T LYECTOR FOR SCOPE ROUTINE 

1425 ov vault OT VEC jteve 

1426 ; LIF NDF SCHTAG, © ;; INITIALIZE THE TEST NUMBER 

1428 Bot Atm SSETUPBE jB1T01 

1429 001506 012737 oOO4412 000030 bbe RRGR S¥ENTVEC. ; pEMT VECTOR FOR ERROR ROUTINE 

1430 001514 012737 000240 on0032 #340, aeEMTVEC+e 5:0 

1432 001 he a SSETUPEH - -BITO2 

1433 001522 012737 oOO074S2 000034 + Me @STRAPVEC ;: TRAP VECTOR FOR TRAP CALLS 

1434 001530 912737 000340 000036 te: 0, aRTRAPVEC+e; live 7 

1436 001 ais NE SSETUPS10 ,B1TO3 

1437 MOV SSPWRON, DEPWRVEC ; ; POWER {FAILURE VECTOR 

143¢ MOV #340, J#PWRYEC+O . :LEVE 
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3CB.Pi1 BacNoye 7 12:49 HE COMMON TAGS SEG 0030 
1439 900 
feat , Tee IF NOP SCHTAG. bbe ip sp ASS CLEAR THE PASS COUNT 
tae MOV SENDCT, sree UP END-OF-PROGRAM COUNTER 
1443 900 - END 
1444 1 .IF NE SSETUP84O ; -BITOS ott tapeemt teesnaned 
4 737 176543 007132 MOV al? 543,SHINUM ;;PRIME THE RAND 
tue potess Bisa? | 123456 007134 es MOV #123456; a kt et HIGH AND LOW WORDS 
ie 001 TE NE SSETUPSI ;;BITOO 
tie0 ° 4 1890 #1, SICNT ;: INITIALIZE THE ITERATION COUNTER 
iuer pings ck STIMES sir 1 ATS taLize NUMBER OF ITERATIONS 
Hes a5) BE 
idee a “HP ROP scrrag,'o CLRB « SERFLG ;;CLEAR THE ERROR FLAG 
aoe om ‘ Ne of : RTTL --CLEAR THE ERROR COUNT 
tts sal Ch ce ccape wer SER EAR THE ESCAPE ON ON ERROR ADDRESS 
1459 MOVB #1, SERMAX ;;ALLOW ONE ERROR PER TEST 
1460 001 - ENDC 
iuee Bot a Cat: SSETUPB20 ;;BITOY 
1463 oo2 FN 1 5 oe ye 
idee ;; INITIALI He tet TRAP BP VECTOR. THEN LOAD, LOCATION, * “SRTRN", IN 
tues 7S yor ESR ma get aT IVE 5 }SE “T= BIT VECTOR TO $RTRN 
1468 MOV 0,akTB + 
TRN TRN TO A RTI 
1333 Rov tng, SaneSvEC Hit To bo A RTT 
133 HOV #N1,-(SP) BND ae a 
taoa Ni: MOV a , SRTRN ;;RTT IS LEGAL--SET SRTRN TO A RTT 
ide Br CLEAN OFF THE STACK 
1476 Ne: Apo T AJLLEGAL =—cL ere re 
had N3: Re svEcee, vauresvit's ie ESTORE TRAP CaTC 
1479 . ENDM ssser TUP 
1480 TUP 
1aBp B00 “ENC 
1463 601 F NE E SSETUPSL al aces! Wen daane 
MOV #., SLPADR ;; INITIALIZE THE LOOP ADD 
1485 oss “HE Ne NE TabORSSuR MOV #. ) SLPERR ::SETUP THE ERROR LOOP ADDRESS 
TER. IF FOUND OR IT IS 
148 aba 96 & a TOP FOR et fi HARE SuITCH oe 
a beRRVEC -( s Save 
1489 001552 013746 o00004 nov aniee? ORV 
iia? BBlees Bisrae Oesbie popmos = By rome WRbue suzcn neczsven 
133 boies2 Bie? 7 177870 O01 Ive Hoy ee ZPISPLAY {Bho @ HARDWARE DISPLAY REGISTER 
493 001600 022777 177777 17733 33 WAR 
iaea OO1E0& O0101 BNE bcs” ;:;BRANCH IF NO TIMEOUT TRAP OCCURRED 


ESRIEBCPaT  Bacnovepr desea «= CY4? SPN TRL Ize THE COMMON TAGs Se 0031 


aac 1 BR 6S + BRANCH oot” ebvck 4, 
14g? Bitie 001620 64S: nov gees, (SP) ‘BRA uP "TEN iMEOUT 

1438 1626 8 737 900176 901149 6SS$: nov #SWREG, SHR ve ;;POINT TO SOFTWARE SWR 

1801 gtr cape Bepb04 66S: MOV (Spee. CeR ASE ;;RESTORE ERROR VECTOR 

1 IF 

leo¢ “AacRO "ie — EAR PASS COUNT ; 

1506 give Heil so SENVM Bs USE R SIZE UNDER APT 

1507 Q SARG1 rae SWITCH 

1508 MOV ae NO-USE™ apr SWITCH REGISTER 
1509 SARGI: 

1510 .ENDM $S$SETMAIL 

1811 aan SSSETMAIL 

iets 001640 oosbe> 177777 INC #-1 ;EIRST START ” 

1514 001644 1006 Wee 

1515 001646 104401 016546 Y » TITLE YP F PROGRAM TITLE 

1213 Bolecs fouuor ontier TYPE,  $CRLF | taal natenallemammniees 
1518 001662 004737 O0SE04 1g JSR’ PC,$TKINT : TURN ON THE TTY KEYBOARD INTERRUPT 
1519 001 IF NE SSETUP&100 

125? 001 005737 o00042 _ $et —s. af a "eee BE EE NNTNG UNDER XXDP/ACT? 
1522 SOLES 001006 BNE 67% + BRENCH Ch TF ves 

1523 oo2 IF DF shat. 

1524 Cc SENV, #1 ;ARE WE RUNNING UNDER APT? 
15e6 wa ai BEQ 675  } BRANCH IF YES 

1527 001674 023727 001140 o00176 ~ CMP SWR, #SWREG Bence ir no SWITCH REG SELECTED? 
1528 001702 00100s BNE 683 H_IF _NO 

1529 001704 i04406 GTSWR :GET SOFT-SWR SETTINGS 

1530 901706 2 BR 68S 

1531 001710 1127 000001 001134 67%: MOVB #1, SAUTOB sect AUTO-MODE INDICATOR 

153¢ 001716 68S: 

15 000 - ENDC 

1534 001716 00S227 177777 INC a-1 sEIRSI START ? 

1535 1722 O010i0 BNE INIT NOT 

1536 001724 004737 o22e000 JSR PC, BUSADR + CHECK aie RH11 ADDRESS 

1537 00:730 013737 001264 007704 MOV ;MOVE RH 1 ADDRESS TO DRIVER 
1538 001736 013737 OOl266 007706 MOV SREGOR. READR : VECTOR ABDRRESS 

1540 

i541 ;GET THE DRIVE NUMBER FROM THE OPERATOR AND SETUP THE VARIABLE LOCATION 
ise :FOR RPOY/S OR RPO6’S 

1544 001744 012716 00 INIT: MOV eSTACK, (SP) TuP T TACK ADDRESS 

1545 091750 03 mos 400 CLR PS BET BR OCESeOR PRIORI Ty TO ZERO 
1546 001754 005037 00)174 CLR TOPLN aE aR HEADER INDICATOR 

1647 901760 4737 604 JSR PC STKINT j INITIALIZE THE TTY KEYBOARD 
154e 1764 1044 1 01754s TYPE ENTERD -ASK FO IVE ASSIGNMENT 

1543 001770 004737 004270 JSR PC, GETNUM ‘GET DRIVE NUMBER 

1550 001774 oOo416 BR 1$ :*CR’ ENTERED 


SEG 0032 


GO3 
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oc 
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E2 
Cc 
MAXNEG 
OFS 
, REG+RPDS1 
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e857 : 
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Re 
oe 
eg 
INIT 
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CZRJICB 
1607 


AA a ot 
TUPUTUTU > he 
(NEW -OWO NOUS We 


furofu 


Oe he ee oe be ee ne Be hae be bee ho he be pee Be 
00 NO” 


KOON OOo 


bad vhent tb 


bb pt ee ee 
THEW OBO IRE 


a a a a A th a a a mm 
NUT Wh Om a 


OEE Sinmun e 


ou 
fr-OwW 


-Pll 


ooe444 


O0eSseé 


MACY11 30(1046) 


‘ O4-NOV-77 


33 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


8S: 
9S: 
176504 
10S: 
IF B 


IMP RANDOM 
tee 
Imp 

TYPE 

BIT i 

ihe ire 
WORD 


$08 ba et flag Jt 
FG? OMG VEL caer 

;GO0 ALL Y BACK TO DRIVE ENTRY 
: TYPE VeREEY’ 

; SWITCH ; 7? 


sR IF NOT Set - CHECK ALL HEADS 
+ COPE OR ENTRY Boks HeRe MRO 


UTI T III titi ittiiiitittititiiitttiiiittitiiitititttttiitiitie 


tFF 


ah int 


s SLHLEKELESSLAKLAALAEAKLALAERAASEKRAALAAAARLLLLARAALAAAEFLRAALAAELLE 


’ALIST 


. ENOR 
“ENGC 


-SBTTL SETUP TO CHECK ONLY THE SPECIFIED HEAD 


-IF B 
| * ites pphanianaabeaaeiatat teatime nein mearmireonneE 
. 1FF 


uF 


-LIST 
5p SASKAKEAAAAELLASEAEKERALLLELALLRAALEAALEALEKELLKALLALAEAEELERLEEE 


"ALIST 


016132 3$: 


TYPE E 
JSR Pc 

BR 1$ 
MOV (SP 
Cw OO 

BEQ oe 
CMP INC 
BEQ ug 
MOV MID 
CMP MID 
BEO 3$ 
TYPE 

BR ONE 
MP 

BEQ 

TYPE CYL496 
PPE 

MOV 


UTTOL, 
TCYL; OPB+CYL 


D 
xO 
oo 

< 

c 


MAXCYL, #411. 


CYL24S 
MIDCYL, DPB+CYL 


CK 
LERANCE 


GNMENT CYLINDER 
ALID CYLINDER 


Danma 
“a4 
dzneS 
D< ire 
onl 
"S ae 
m 


< 
pad 
re ee 
5” 
< 
DDMDM ~» 
w 


496 DEFAULT MESSAGE 
24S DEFAULT MESSAGE 
ADDRESS 


z 


o000 
E: 


SEO 0033 


: 


seat 


NINN 


We 


CKOMNTOONO 
Bouse 


St 


<3 


BOIRA LO ODO VR Loe Owe 


cen 
= 


B= bt ho bs Bae Be ee be be he be be be ae be bn hs ae eo he ho be be ho he he —e 
NNN NNO ORO OO OOOO rrn feadeatenta tates tas st astant aot stent este to st eaten et eatog 


Sete 
ONOMSWY-O 


56H HEA ALNMT MACY 11 30¢ O46) -NOV-77 17334 PAGE 3 m 
ei 12:49 SETUP TO CHECK ONLY PECIFIED HEAD SEO 0034 
4 4S: TYPE ENT FOR THE HEAD ADDRESS 
20 a bo4276 JSR PC, GE NUM GET, THE HEED ADDRESS 
= MOV (SP)+, SHEAD ; HE HEAD ADDRESS 
001172 CMP #18. , SHEAD : 5S yALI ? 
020410 TYPE 1 pa0TRK ; NV HEAD ADDRESS MESSAGE 
PHECET sonny Ss: TYPE stern :HEAD Der t I 1MeSsAce 
Doses Dooibs 003736 6S: JSR B,D IVER SEEK TO THE steect IED CYLINDER 
003032 3on . BE CHECK :2 ext HEAD 
peseas 880139 001744 JMP INtT :GET THE NEXT DRIVE/HEAD 
001 .IF B 
i eenarenemernanpenaametticermatincnnima emit ON Sigg tie 
‘MEI T 
rset 
i HEdeaeasanereneaeaeatanacensneneanensceseananenensnsseananeceas 
“ENOR 
“LIST 
000 > ENDC 
.SBTTL MAIN ROUTINE - CHECK ALL HEADS AT ALL ALIGHMENT CYLNDERS 
Zi 
one | SERENNENeseesnenaenneeeaennersnenseenercanesnncaneantnnteneeye 
“REPT 
| aeEtHOnenoncananseasensnnsanesensnenaensersensnecnentanenetess 
“ENOR 
"LIST 
000 “ENDC 


4 


HE ALIGNMENT CYLINDER 
CHECK Me ane 
HE ALIGNMENT CYLINER 


Oh 0135 CYLDER: MOV MIDCYL,OPB 
1210 M MID TOL ; - 
;ORIVER SEEK Cc 

; ss AL NT HEAD SELECTION TABLE 

; CHECK ee wits ° ALL Hews. AT THE ALIGNMENT CYLINDER 


VO TROLS 
ee 
S88 
eee 
Ret Reco KrO 
S= 
raha 
on 
“2 
RRO MIE 
ga 
m4 
ee 
82 
wo 
mt 
oom 
—- 


; NNER 
< gEEK : R SEEK ¢ 
i 9012 MOV Le1,R4 :C AD E ADDRESS 
002732 139 7 O01 016132 aoe 0 tee +CYL aah BE ONDER TO aNTER EYL TNDER 
002740 233 6545 JSR BE BRIGER’ iS 0 ute C LINDER 


002744 90105 . WORD tk 


a 


os 
rs) 
. 


SwSN eueo 


SA TS A A 
% N“ NSNNNNNNSINNI 
L£LELELLCWWW (JWI) 
HEWV-OOo IHN EOE 


NNNNNNNNN 
Oba ae 


a 


SeneUN 


‘I 


onal 


RRRTOR 


CRATE TOT 


NNNN 
fwn-Oow 


De ae ae ee he ee be ae ee ee a ee pe Bn hae nw be hs be hs ee Be Pe pe 
NNNN 


76 HEAD ALNMT MACY11 30(1046) O4-NOV-77 17:31 PAGE 
B4oNoy eo? 12:49 MAIN ROUTINE - CHECK ALL HEADS AT ALL ALIGHMENT CYLNDERS SEG 0035 
v4 4 JSR PC,1$ ; K AL GNHENT AT OUTER CYLINDER 
137 1 016138 Vv MIDEYL, CYL j net GNMENT CYLINDER 
137 1 1210 MOV MIDTOL, TOLER OLERANCE 
8 36 Re DRIVER ; 
i 4 016210 MOV AD1,RY ; rie He AD ADDRESS TABLE 
737 3014 JSR PC, 1$ iR “Fed AT ALIGNMENT CYLINDER 
72 TYPE E pei 
1 1744 IMP tNI ; GE ee 
12437 001172 1S: MOV (R4)+, SHEAD i HOVE AD ORESS Pon TABLE 
00403 BMI es :BR Be GF NO TABLE 
737 003032 J C, CHECK :CHECK THE ALIGNMENT 
272 BR is :GET NEXT HEAD VALUE 
620 2s: RTS : RETURN 
oot | SENONNaCeaeeaeeereeeenensueseennesnennneneeaeeaeenertenteecees 
‘REE 
- REP 
| SHEPeAMeNseeseneannaenerseenecsiceateseenienneeaseneerertente® 
ENOR 
“LIST 
000 ENDC 
.SBTTL ROUTINE TO FIND THE TRACK CENTER 
001 .IF B 
5s alahalahehehlahlahelehahlehelneilaebaeleeldeehaehleietaeineiieieieeieitaitaeinsiceias 
Ree" 
| SEEOHHONNaenscesereaneaenecesensnevernancareateaersetnntentsees 
neti 
000 “ENDC 
995037 001176 CHECK: CLR FDIR ; CLEAR THE OFFSET DIRECTION INDICATOR 
37 001200 CLR ITIND *CLEAR T Eo eigh IT INDICATOR 
O0ie1s MOV MAXPOS, Re : MAXIMUM OFFSET VALUE 
1 001220 MOV MAXOFF, R : MAX mun OFFSETS 
1 001236 MOV TABLE2;R1 ; ABLE ADDRESS 
13746 001172 MOV AD, -(SP) : Ad UE TO STACK 
16 Sid (SP) : Sid CHE OAD 
o1soie JSR RO, WRT. RP ; ohiTH AD ADDRESS 
RPDA : fe RA SS 
001744 INIT ; CTABLE PARITY ERROR RETURN 
112137 016121 1S: MOVB (R1)+,DPB+CODE OFFSET VALUE T ? TER BLOCK 
162702 Bb BSS: SUB #25. ,Re ;DECREMENT OFF VAL 
000404 BR ‘Bey S REVERS DIRECT ON SETUP 
4137 016121 2s: MOVB -(R1),DPB+CODE REVERSE OFFSET VALUE TO PAR BLOCK 
062702 000031 ADD #25. ,Re : INCREMENT OFFSET VALUE 


Dae Pe ae ae a eb ho he be an Os Os ae Be be Bee we Be ae as ne Pe Be Pw 


ee ee he ee he ee be ee ee ee ee 


FEB bit’ Banoo e? tora ACYL SO Cito RE TR FIND THE TRACK CENTER” SEG 0036 





775 003736 3s: JSR VER sOFFSET THE DRIVE 
278 . WORD ore bet i OFF T OP Cpe 
001200 ST e TIND ; ite Per N VALUE STORED ? 
re SPE oieize = REBAANaceccanwod mimes BATION 
16172 paeecs HOV REG GeRPOF’ epeennor STORE TH THE CF ok CHANGE BIT 
6172 4S: I atcB G+RPOF Y THE SIGN VALUE 
ELS BaPsas one REGORPOF’ SENCNG ; in a 
? x Ss: es Hear FSET ATTEMPT COUNTER 
? go OFFSETS NOT COMPLETED 
003 175734 I 8 , aSWR aa 
x ERROR 1 ur OF LIMIT CONDITION 
731 003 BR 13$ ; ERROR 
73 6S: ST TOPLN ; HE HEADING LINE ? 
584 Fyre «8 THEAUER Pree R 
79S 001174 a MOV bor TOPLN ?SET THE Sea SWITCH 
5ae : MOV SHEAD, -(SP) ;;SAVE SHEAD FOR TYPEOUT 
53g a TvPDS + ASCII WITH SIGN 
800 MOV DPB+CYL, -(SP) 11 Sis Beast TYPEOUT 
Bae 7 © ry cI ASCII WITH SIGN 
803 T , TOLR igre, 8 wee? ore LIM wey 
Be 175654 BIT sSui8, aSWR Hat IF ERROR ? 
806 Q ; 
B07 HALT eee a re OUT OF TOLERANCE 
809 7S: ST b28o1r Se H Dine CTION 
i eo LS MAS 
ig 8s: ST FDIR iF ont H REVERSE ? 
81 BNE ; F YES 
HE et ma itt Bt PUFF ALP Ee 
as meee) aay © teres 
gis ADD T a :Becrnnihe OF ve DIRECTION VALUES 
820 ECR eet : t REVERS ofa Usic 
B5t BR 3s Oe ReT Reve FSETS 
Bce 9S: ADD PLUS, Re ike IGN CHANGE VALUES 
MOV Re, PLUS >SAVE THE T 
NEG Re j RECOMPL NT THE VALUE 
8 175544 10S: B #SWO, ISWR ;SEE IF 
829 BNE :BRANCH IF IT IS 
830 CMP TOLER, R2 :SEE IF TRACK CENTERLINE WITHIN TOLERANCE 


oO 
ee ee a a ee ee en ee te ee bs ae se ee Be a eee ee ee ae es ee eee be ee be Be Be Be ae Be Be ae ee So 


JEBO, PON Ae Eg | CNEL priv ine 18 FIND THE at CENT SEG 0037 


1 118: ee — i, 5 meh ox VALUE 


TR 
EGE Be oe ee, | an 
Y R 
838 biz? O17 ess 001174 sia MOV b-1, TOPLN > CLEAR Hie INDICATOR 
8x0 012746 001172 > MOV SHEAD, -(SP) ;;SAVE SHEAD FOR TYPEOUT i 
.1IF NB «> 
Bue 003436 10440S TYPDS $3 oi ASC WITH SIGN 
B43 40 0613746 016132 os ie mov DPB+CYL,-(SP)  ;;SAVE +CYL F 
Bus poaue LO4s05 : TYPOS 5390 TYPE CIMAL ASC ASCII WITH SIGN 
137 001204 MOV PLUS, -(SP) ;; SAVE a 
847 .IIF NB «> 
eng 1 TYPOS ; 50 7 TYPE»-DECIMAL ASCII WITH SIGN 
BNO 01161 TYPE, SCALE a 
850 00121 CMP OL R, (SP)+ E iF HEAD N TOLERANCE 
851 4 14 pet a RANCE 
gs2 100000 175444 iT #SW1S, ASWR 
854 HALT hor D OUT OF TOLERANCE 
855 BR 14S ey suITC 
856 001000 175430 13S: BIT #SW9, ISWR IF 3 MITC H 9 Moet 
857 003919 901004 BNE 15$ 
858 00351 z 000002 175420 14S: I sill, OSWR a w "Ser ” 
860 85 22 wet a 003032 1S$: be CHECK iN THE HEAD AGAIN 
B61 003526 7 16S: RTS PC : RETURN 
863 001 IF 8 
Bee 1 a peanaei simian catenin cn cienasaiaccres inet wicontes te tata scales 
B66 T 
ee a 
aes TE sesonsssesuoesoonsnsnunnesentsesnanessentssansnsesssons 
871 ENOR 
EE ati 
873 oco > ENDC 
875 _SBTTL ROUTINE TO SELECT HEAD FOR DDU CONTROLLED HEAD ALIGNMENT 
77 001 
678 Le RP RESET IR 
880 T 
881 eT 
882 i er reneteneoareesnenanveeneenntnesearnmnsresanananenasite 
Bee 
Bee -ENeT 


MO3 





CZRICBO, RPO4/S’6 HEAD ALNMT MACY1L1 30/1046) O4-NOV-77 17:31 PSGE 38 , 
CZRICB.P11 O4-NOV-77 12:49 OUTINE TO SELECT HEAD FOR DDU CONTROLLED HEAD ALIGNMENT SEQ 0028 

1887 000 . ENDC 

1889 ? DDUALN: TYPE ALIGN j TYPE IGN’ 

isa? p50e53 001212 Br $311. ,MAXCYL BRT sf 

1836 o202 Tree sBLN96. ; ai D AT 496’ MESSAGE 

1894 Be Ag: TYPE Ne4S ig AT , 

1 016132 : , MOV fi YL pPRB+CyL ; gs 

isa? & - GORD * ete : K fo. OS NT ENE INOER 

1896 3S: TYPE NT -AS R 

isa Besere Aaucae S5R278 ir pe Cen =i Pe een 

1 1 oo0022 MP (SP), #18. : ATER THAN 18 

ie Besta Tosh a MAE atEetcfron te 

i 13 1 001160 4$: Tyee { Ss : YPe STI 

1305 bosees rea? 001172 Ss: MOV ($e), sHeAD iE AO AU FOR TYPEOUT 

1306 at 16 sete SWAB ‘3 Js nee }PUT HEAD NUMBER INTO UPPER BYTE 

130g Gosese Boos Bee iREGYSTER ADDRES 

1 ve 1744 INIT CT ITY ERROR RETURN 

1310 003636 000755 BR 3s :WAIT FOR NEXT HEAD ENT 

1912 001 IF B 

isis | ipctag askance sac lipemia ahaa in tama pte hie 

1915 [NLIST 

38 REPT $ 

aig |: eseuuames penaneememeamserunseremccmnan 

359 Fa T 

ace 000 ‘E 

328 .SBTTL ROUTINE TO PERFORM 5,000 RANDOM SEEKS 

926 001 IF B 

366 7 5 lahlahlehlahlahiahelaeiaeitailaihehiaieiaieiaelaeiaeiiahnieinieiaiiaiiteitaiiaiiniintiaai 
T 

930 ; 

$31 ‘REBT 


[ateSEHROLCeeeeneeeeeeeneedenenaeenecannenaeenaeenennaeenees 


it 


40 1044 RANDOM: TYPE XER i? 
oe IE Ber BT we owe 


34 
Baeoug, 907282 Cok SHiNUM, -(SP) :BUT UPPER RenBon 


SRB RR EER 
8 


ee ee ae te a ee he be eh | ae ae fe ae be en Be hs es he 


£f 
tor 


EERIE. but" Bay ov" 


[AG 2 


ee ee ae ee ee ee ee ee ae ee ee ee ee ee ee ee eee ee ee ee ee ee ee ee 


000 

369 
370 fee 
972 
973 
ory 
ace 
77 
378 
980 
321 000 
SB4 
Seg 16160 
oe7 Ohare oera7 
Seg 1 
i oe 
$32 03772 001 

2 01080 
$3 Goats aera? 
99 le 1022 
$98 004014 032737 





ALNMT 
12:49 


007136 
01613e 

000004 
016132 
003736 
001240 
001744 


MACY11 394 -NOV-77 1 
the TO PERFORM S, 
-(SP) 
: eS 
MP ), OPB+CYL 
#4, SP 
2s: MOV (SP)+, DPB+CYL 
TST (SP)+ 
JSR DRIVER 
. WORD tk 
DEC KCNT 
one OANET 


016136 
016136 


016136 


016136. 


. 
eo 


NOS 
G63 RANDON SEeKs 


Put iv Ts OR 


tes 7” FF 


Hh s ReK PO A le 
ae Hcl Foie 


K 
— Me SEEK COUNT 
| ea 0 ROMMAND ROUT INE 


woes foores ss) 


Ty ec cnnaneeeeuneeeeeeneeeneeeeeeeeeneeseuaeessenenecennenensunes 


‘itt 
"NLIST 
a 


PT ee 


“ALIS 


‘ ‘Cit 


.SBTTL COMMON ENTRY TO THE RPO4/S/6 DRIVER 


‘Atsr 

‘ALIST 

-E 

BBE 

DRIVER: MOV 

1S: JSR 
DPB 

es: PE 
a 

38: BIT 
BIT 
Bi 
BIT 


(RS) +, DPB+COMND 
RO, RPOY 


eosmene 


SerT7, DPB+STATUS’ 


FB 
+ MM PM HEME ME EE RRR ERE LER RAR RARER RRA RRRE LEAS 


-LIST 
o SEGRE RRR RARER REESE RRA RRA RELL ERA RARAAARARLRRERRAERE 


COMMAND C 


‘DAT Feehieee Bock ADDRESS 
2 7 so 


wee TERMINATE ? 
SBrrivernissarr6f ANS ah ATus ;ORIVE OFFLINE OR 


6S 
#BITle, oe 


#BITLI{BIT10, ae a 


n+ We, PARITY ERROR ? 


SEQ 0039 


CZRICBO 
CZRICB. TY ied 


CSS, 


000 


001 


000 





ALNMT 
12:49 


001400 


001000 
000006 


OGOGOE 


MACY11 Ue") 


016136 


175074 


175040 


-NOV-77 
OMMON ENTRY TO THE 


- B04 
ase DRIVER 
I | ,oPe! rats TIMEOUT ON THIS DRIVE 7” 
Ss: OR i ae DATA ERROR 


BS 


8 ODOX eeceweeeeewee 
+ 
zx 


Ech . FOR LOOP 


" Soren unsere 
,* sew UNSAFE 
the PARITY ERROR 


S23 
3 
as 
a 


4G) 8B OE bh ee 


6S: 


os: Fanon 


Baa e 


BR CHECK 
98: ERR FhARE™ Se FMEOUT 
ios: IT , JSWR; LOOP bN ERROR ? 
BEQ 1$ ;BR IF NOT 
SUB 6,RS :C CT RS FOR LOOP 
BR $ ; RETURN 
11S: IMP NIT :RETURN YO USER 
.IF B 
| IPERS Cnet eRe oe RRR NE REO 
rey" 
HE vesteneeanacanenscnananeseseeneneanansnesnananentanscensanss 
E 
Ener 
> ENDC 


-SBTTL SUBROUTINES 


-IF B 
5 , SASSASLSLALALAS SL SLLELALLLALELESLAAAELAKAARKAALAAAAAARARKRLKRKAE 


MLIST 

Reet 

 :eEPE naeeneceneanananenenenanananeneceneanenneseacocscenesess 

-ENOR 

-LIST 

- ENDC 

HIS _R WILL _DETERM F_THERE IS A CLOCK ON SYSTEM 
ae POUMERE TS TT ORIEL SETUP THE VECTOR AND START THE Cock 
PC, a@eST.CLkK 

; RETURN 

ST.CLK: MOV R1,-(SP) ;SAVE R1 
MOV BERRVEC+2 RI ;SAVE AND SETUP TIMEOUT VECTOR 
MOY (R1),-(SP) 


SEG 0040 
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CZRJ OUTINES 


JCB. P11 O4-NOV-77 12:49 SEG 0041 
2055S 004124 005011 CLR (R1) ;LEVEL O 
se? Bei 38 seat * RS 5 (B1),7 (SP) et 
1 737 P7218 i spies PCLK iTS Teh Rene Rul i= 
Bia ety Reais ae oS’ : igh T Extr 
206 1 1S: CMP (Se )¢ (SP)+ : CLEAN THE STACK 
1 0041 MOV a2$.(R1) ; T TO 2s 
154 544 1751 TST aks : THERE A Kid i-L? 
4 ibd ? Bo4e3e Jer PC,ST.LCLK ip ART THE KW11-L 
S 164 ie 3 xI 
166 2s: CMP (SP)+, (SP)+ >CLEAN UP THE STACK 
904170 lebel 35: MOV (SB )+, (R14 *RESTORE THE TIMEOUT VECTOR 
17; lobel MOV (SP)+’ (RI)+ 
2069 O04174 012601 MOV (SP)+'R1 ;RESTORE R1 
e970 004176 RTS PC RETURN 
1 ST.PCLK: MOV r) K, OPKV ;SETUP THE KW11-P VECTOR 
sore Guete BIT? Becsos IFES oy Soy sextee 
i4 Ol 1 175030 MOV #1, aPKB sCouNT ONE T 
OO4222 012777 000115 175020 MOV #115, aPKCS “INT ENS COUNT NT OOH “MODE 1 (REPEAT)”, 
aa REO*, 
e077 004230 000207 RTS PC 
075 777 T.LCLK: MOV eSRVC KV ;SETUP THE KW11-L VECTOR 
Bousas bises> Badson fsents 87 -t CLK: OO eats SE ¥ 
2081 OO4246 012777 O00100 175006 MOV ; START THE KW11-L 
004254 900207 RTS : RETURN 
Bouses parse SaNtTD a nee i UaUNT THE ELASPED TIRE 
004266 Oo00002 RII : RETURN RET ER” R INTERRUPT 
\ 


; ROUT INE TO GET DECIMAL KEYBOARD ENTRIES 
; JSR oy PC, GETNUM oR. 
; RETURNS NORBER ENTERED, CONVERTED NUMBER ON THE STACK 
GETNUM: Mov (SP),-(SP) :Paovige SPACE F FOR FIRST CHAR 

varie EE 


004376 MOV RO,68’ 
(0) 


One. 
~~ 
o 


8388 
RoR aS 
Oo0r-O 
ESSe-é 


BAD INPUT 
BRIE M ris. 4 A oR ? 


SEELNRIURERSETRRUOR 


oo tcp) 
21 1 1 2s: MOVB (RO)+,RI ae TINTS cH CHARACTER 
gi 1 Gel BE 
1 19 1 1 o00060 B #’0,R1 T ROIs CHARACTER 
2104 004320 003016 BGT 4$ a. 3 DIGIT BETWEEN O 8 9 
510g Opu3ee oh 000071 cnPB 8,3.R1 
2107 eae Bs (3P),-(SP) SSE VE FOR LATER 
6188 thee Sie ASL (2p)" a4 
2110 004336 OOEZ1E ASL (SP) #2. 


¥ yy THY TY errrerer ter eee eee 
Ry pet Spam tet Wt bet ti pia thet opt aT tt pt bt hte Were attr tt 


rorororororururonorururunorurururororurorerurororururururururorururururofurururururururorororururururururoreruru 


eh ee be Be hs be Be be ae be he be ee a ee he 


Gren EWU OED VUE ORO 
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SUBROUTINES SEG cO4e 
ADD (SP)+, (SP) oie 
BVS 5 QVERELOW ISN’T ALL OWE 
anaes "autees 
avs 5s" OVER REL Ow T ALLOWED 
4g MOV (SP)+,2(SP) : 
eR et : athe EEA Thera ADDRESS 
ss ST (SP)+ H XE OW PAR PARTIAL R FROM STACK 
CLRB (RO) ; a, T RMTNA 108 gee 
TYP’ i TYPE T NPUT UP TO BAD CHAR 
6S: 7 0 ; POINTER ole rele 
TYPE $oues ’CR’ °L 
BR 1 t rRY Y AGAIN 
7S: MOV (SP)+, (SP) ;RESTORE THE PC 
8g: RTS PC : RETURN 
.IF 8 
RESPONSE GIN: REMI ENR mt ph NC ak gat: 
“NLIST 
- REPT 
T+ alahdaaeheahaehahtahtahleinelehehleebeiaeiteiieietehiaicabaeiaablaitaiiaeia 
"ENOR 
“LIST 
000 . ENDC 


-SBTTL MACRO ROUTINES 
-SBTTL ERROR HANDLER ROUTINE 


001 -IF B 
5 ERR E EERE EEE EERE EERE EAE ERLE REAR REE EERE SERRE EE EER ER 


REEF" 
ST 
Pit 
"ENOR 
‘Eee 
:#THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
: at THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
200008SSWR,;#AND TYPE OUT THE PC OF THE ERROR INSTRUCTION 
GO TO SERRTYP ON ERROR 
1 “THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
Ne 1Bappoes WR’! ERROR 
NE 


0c 


001 


*SW1S=1 HALT ON 
200008SSWR, ; #SW13=1 INHIBIT ERROR TYPEOUTS 


+ 
p00 , 

‘ TE 

‘TIF 

TIF 00 ‘ 

IIF SHODeSeuR ; eSaIO=1 BELL ON 


RH BBO IR Lolo Owe 


furor 
fur 
oO 
WwW 


08 
2209 
2210 


RANE 
ruroporurorofurrorurure 


NON ee ee he 
M-OWDNOU LW 


rororororor 


001 
00e 
004474 004737 
001 


ode 


001 


1166 
1170 


001103 
001102 
001112 


1116 
179434 
020000 


004520 
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ERROR HANDLER ROUTINE 


174S0e 


001116 
001114 
174446 


10008SSWR, ; *SWO9=1 


434 NE 
; CALL 
;# ERROR WN 


ERROR: 
- LIF NE SSETUP&100, 
.IF NB <<MOV 


MOV RL, DRIVE 
naia MOV R3/ ATTN 
7$: INCB SERFLG 
MOV cul STNM, JOISPLAY 
.IF EQ 200088 ;SW10 
IFF - . 
‘ BIT #B1T10, 9SUR 
yee «= SBELL 
1s: INC geeFit 
; MOV (SP), SERRPC 
my eres 
ve ne. PiBoasessthhre STEN 
. Broo #81713, aSWR 
BNE 208 


- IETF 
- IF DF SYOCAT 
CMP 


CH ip sme 
;;PROCESS UNEXPECTED TRAP OR INT 

MOV 4(SP), SERRPC 
SUB & 
TYPE 10s 
TYPOCT SERRPC 
TY s 

b4 (SP) 
MOV (SP), SERRPC 
TYPOCT RRPC 
TYPE 

tSP)+, (SP)+ 


BR 
O$: a 3313 <200>’PC= ’ 
1$: yr? 4 


12S: 

. ENDC 
.IF NB RRTYP 

SR PC, SERRTYP 
. ENDC 


- IFT 
. IF B SERRTYP 
TYP 


CKSWR 
R1;DRIVE>,<MOV R3,ATTN>> 


LOOP ON ERROR 
;;ERROR=EMT AND N=ERROR ITEM NUMBER 


;; TEST FOR CHANGE IN SOFT-SWR 


;;SET THE ERROR FLAG 
;;DON’T LET THE FLAG GO TO ZERO 
;;DISPLAY TEST NUMBER AND ERROR FLAG 
3; INC THE ERROR COUNT 
;;BELL ON ERROR? 

NO - SKIP 


+E SNNT THE NUMBER OF ERRORS 


;;GET ADDRESS OF ERROR INSTRUCTION 
;;STRIP AND SAVE THE ERROR ITEM CODE 
;;SKIP TYPEOUT IF SET 

;;SKIP TYPEOUTS 

;;1F RETURN PC LESS THAN 1002 

;,ERROR IS ILLEGAL TRAP 

bs GET 4 AT TIME OF FALSE TRAP 
;;AOJUST PC 


;;1YPE HEADER 
;; TYPE PC AT TIME OF ERROR 


;;GET FALSE TRAP VECTOR ADDR 


ERRUPT 


;;POP FALSE TRAP VECTOR PC8&ADDR 


UNEXPECTED TRAP TO ’ 


;;GO0 TO USER ERROR ROUTINE 


E SCALE 
TYPOCT $ERRPC,<ERROR ADDRESS> 


- ENDC 


SEG 0043 


SSRIEB br’ Bacncyer7 des49 


004500 
004S04 


0045S 16 


00S7 
100002 
000000 


104401 001161 
000 


001 


0 
7 
72 = 174430 


104407 
ode 


001 
o0e 


ejele) 


001 
oo4¥sieé o0000e 


ooo 


O04 
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ater HANDLER ROUTINE 
TYPE , SCRLF 
.ENDC 
20$: 
.IF OF sMAlL 
CMPB BAPTENV, SENV 
BNE 2g 
MOVE SITEMB,21$ 
JSR PC, SATYY 
21s: .BYT 
.BYT 


22S: Bos 
. ENDC 
.IF NE SSuns 100000 ;SW1S 
: ST aJSWR 
BPL 3$ 


HALT 
. LIF NE $SETUP8100 CKSWR 
“IF NE secne1000 ‘ - SWOF 
35: Bir #81T09, aSWR 
Q 4 
MOV SLPERR, (SP) 
4g TST SESCAPE 
BEQ cs 
i MOV SESCAPE, (SP) 
-IFF 
33: 6 
FAP 
"TF NE SSWR8&1000 - SWOS 
2s: BIT #B1T09, aSWR 
MOV SLPERR (SP) 
3S TST SCAPE 
BEQ 4S 
= MOV SESCAPE, (SP) 
.IFF 
es: 
-ENDC 
* ENDC 
“IF NE SSETUP820 - BITOY-- 
CMP #SENDAD , Je42 
BNE 6$ 
HALT 
6$: 
»ENDC 
‘IF B «> 
RTI 
_IFF 
. IRP LASTIN, <> 
LASTIN 
.ENOM 
" ENDC 
“IIF NOF SERTTL,SERTTL: 
“TIF £Q .-SERTTL, SERTTL: 


44 


;;RUNNING IN APT MODE 

':NO,SKIP APT ERROR REPORT 

::SEt ITEM NUMBER AS OR NUMBER 
::REPORT FATAL ERROR APT 


;;LOOP_ON ERROR? 


ON : 
;; TEST FOR CHANGE IN SOFT-SWR 
OP _ON ERROR SWITCH SET? 
TURN FOR LOOPING 


+3 IF 
{FUDGE RE TURN an LOOPING 


;;CHECK FOR AN 
;;BR_IF 


5 


SCAPE ADDRESS 


;;FUDGE RETURN ADDRESS FOR ESCAPE 


(. SEOP) 
3;;ACT-11 AUTO-ACCEPT? 
5s BRANCH IF NO 


** 
s* 


; ; RETURN 


-WORD O 


;;ERROR COUNT 


SEG C044 


CZRICBO, RPOYS 
CZRIC 


2309 


WWWWWWWWWIW 
hr eee 
WONMU£W-O 


BRRREERES 


rurerurorurerororurururururururury 

CHRIS rurorurururururururu 
yt at tet a 

tw OwW 


BueNover7 2:49 


001 
000 
001 


ooo 


001 


900 


pong} 
0 
153700 
001004 
013746 
104402 
001 


O0044¢ 
ooo 


001161 


001114 


001116 








‘tit 


“LIST 
. ENDC 
iS THIS ROUT NE USES THE “ITE 
ERROR IS — REPORTED. I 
*AND REPORTS HE APPROPRIAT 
meant 
TYPE SCRLF 
MOV RO, - (SP) 
CLR R 
BISB asSITEMB,RO 
BNE 1§ 
SERRPC, -( SP) 


MOV 
_IIF NB <ERROR ADDRESS}, 
TYPOC 


-IF Bl 
BR 6$ 
- IFF 


BR 10$ 
- ENDC 


MC 
TT 
| 


GO4 
NACYLL SDC4OM6) O4-Nov-77_ 17:31 PAGE 4S 


;; TEST NUMBER 
;;ERROR FLAG 


;;ESCAPE ON ERROR ADDRESS 


SEG OO4S 


;;LAST ERROR INSTRUCTION EXECUTE 


;;ASCII CODE FOR BELL 


;; ITEM BYTE 
;; QUESTION MARK 
3; CARRAIGE RETURN 
;; _LINEFEED 


. .BYTE 0 
; .BYTE 0 
‘Us ORD 0 
THe a .WORD O 
‘Te 
-1IF EQ Lt, -ASCIZ ¢207><277><377> 
FTE or % TENe sree MB: 
HE EQ .-$I TEMB: .WORD O 
.1IF NOF S: 
HE EQ . steer ASCII “7 
. LIF NOF : 
-IIF €Q. C fF SCRLF: .ASCII <15> 
HE NOF Ff: 
-1IF EOF .-SLF,SLF: LASCIZ <1le> 
{TIF ig . EVEN 
“SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
jj SERNONADENaNNNONADeNaEAneenDEaesnanenenneneaeenaeeseeanenes 
ae 
REP 
ST 


LI 
t PeEREEECEEEREEEEEGEEEEEEAGEEGESEEDOEEEEEEEEEsEEEEEseunnenESEE 


ONTRO BYTE” (SITEMB) TO DETERMINE WHICH 
TAINS FROM THE TERROR TABLE” ($ERRTB), 
ORMATI ON CONCERNING THE ERROR. 


RoE ROT RETURN” & “LINE FEED” 
: BICKUP THE ITEM INDEX 


ite te 


} SAVE SE RPC oF TY 


is. ZERO, JUST 
HE ERROR 


OUT 
;ERROR_ ADDRESS 


;;GO TYPE--OCTAL ascricatt DIGITS) 


;;GET OUT 
:;GET OUT 
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1S: C RO ;;ADJUST THE wont ENQEX O THAT IT WILL 
a at R $3 ERROR TABLE 
os Be ae SS Hesarg,v0 ng 
ners MOV tabs 3$ iBvcaue ERGOR Re SSAGE ” POINTER 
2341 Oo878 ia 3$ 53 SK NO POINTE 
5345 Rees o 2s: TORO 0 ies Te 5 R tess ; TER wGOES, HERE 
es 74 40} 001161 TYPE CRLF ae yi “Eine 
ons 12037 Ade 1 3s: nov tRO)+, 4s ee CK ate HEADE MTERE 
2347 O4401 7 eT SINTER 
e348 1 00 4S: .WORD OQ Bie R™ POIN R GOES HE 
2349 004612 104401 001161 ‘xs TYPE , SCRLF “CARRI rea & “LINE FEEG™ 
esol S$: nov £RO) ,RO ‘iP CKUP vee fee ba ee POINTER 
2353 6S: MOV (SP)+,RO i ERESTORE RO 
e354 TYPE s CRLF i abe nce RETURN” & “LINE FEED” 
7$ TYPOCT @(RO)+ TPs a 
e387 ts! (RO) ids fy ERE ANOTHER N BERBER? 
e359 TYPE 48 Hi TWoC2) SPACES 
2362 es asciz ae. ED SPACES 
236. _IFF 
2364 OOMG16 O1014e 5§: MOV R1,-(SP) ;;SAVE R1 
see fees! Bartel gy sgt HEEACHY ng PBUEA OBE FOBROE® 
2367 004624 : 906 wy HOV, RO}+, RO ; ;PICKUP, “DATA EO FORMAT” POINTER 
ze etac 1003 i BNE 7 ::BR IF DECIMAL 
2370 004632 013146 Say mov a(R1)+,-(SP) ::SAVE J(R1)+ FOR TYPEOUT 
2378 904638 ,ow4oe : tyPoc a ;;GO TYPE~-OCTAL ASCII(ALL DIGITS) 
2374 eater a 7$: 
Sire DO4E4O0 013146 a mov a(R1)+,-(SP) ;;SAVE 3(R1)4 FOR TYPEOUT 
3 OO4642 104405 ‘ TYPOS +360 TYPEL-DECIMAL ASCII WITH SIGN 
v8 Bauese 7 8S: T (a1) ids THE ANOTHER NUMBER? 
380 op 104401 004670 TYPE 118 ti TYPE TWO(2) SPACES 
e361 004654 600764 BR ts ;;LOOP 
2383 OO46SE 012601 9$: MOV (SP)+,R1 ;;RES 
2384 O04660 B15e00 108: MOV (§P)+'RO t SRESTOR RE R 
2385 004662 104401 001161 TYPE pacrif 3} CARRIAGE RETURN” 8 “LINE FEED” 
2387 BOMESE Se0040 090 118: -BBCIZ ss t}TuoC2) SPACES 
2283 ' .ENDC 
2290 "SBTTL TYPE ROUTINE 


O00 


tt 
aa 
3 20 


Pa 


Whe OW 
we 
~ 

* 


-NLIST 
“ect 
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FB 
+ RESRERASESRELERE REESE HELLA AR RARER AA LA AS LLLE LAA RAERERAALARRALRER 


PEP Poca) a 
Pat tet sists et 


=U 
NOOO 

Re 
CoO 


a4 
o 


: 


zs 
Se: 


8 


er 


EWM GBB VON Eero Se NOUN LOU 0 NUT wre 
oo 


TEPEEELSS TESST PELE TELE PELE LELELEPEr See 3 
wr 

Bonee 

-£N 


-LIST 
oie sUUNSEESEEEEEREREHEREREREOESEEEEREEOSSEEEEOSEOOSSEREEREEEES 


gts 


-ENDC 
#ROUTINE Te ine MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
j THE ROU NSERT A A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
:#NOTEL: L CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
: #NOTES: PLES CONTAINS THE NUMBER OF FILLER CHARACTERS REGUIRED. 
; #NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
> #CALL: 
:#1) USING A TRAP INSTRUCTION 
5H TYPE , MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
iH TYPE 
:# MESADR 
;# 
001157 STYPE: TSTB STPFLG 31S THERE A TERMINAL? 
BPL 1$ :BR IF YES 
HALT FOR HERE IF NO TERMINAL 
BR ave 
1S: MOV -(SP) :: SAVE RO 
oo0002 - ey deltsP),RO :GET ADDRESS OF ASCIZ STRING 
c SAPTENV, SENV 
BNE 62S £NGAG0 eHECK’ FO FOR APT CONSOLE 
BITB ge sen icp MESSAGE TO APT 
BEQ i K FOR CONSOLE 
MOV B,c18 ;SEt me ADDRESS FOR APT 
JSR Y3 5t° APT 
bees ORO CO APTCSUP, SENVM HHigeee SSED 
meals BNE 60S YES, CONSOLE SUBPR . 
2s: Move = (RO)+, (SP) ; ;PUSH CHARACTER TO BE TYPED ONTO STACK 
oN ii Pi IT I THE TERMINATOR 
ST <ep)4 + ERMINATOR "pop IT OFF THE STACK 
60S: MOV (5P)+,RO Est 
oooo02 3S: ADD #2, (SP) :;ADJUST RETURN PC 
000011 4$: cnre sHT, (SP) ::BRANCH IF <HT> 
oo0200 cHeB BCRLF , (SP) ;;BRANCH IF NOT <CRLF> 
Pat (SP )+ ;POP <CR><LF> EQUIY 
TYPE tt TYPE A CR AND LF 
SCRLF 
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2447 754 e867 005110 cLRB CHARCNT ; CLEAR seemecreR 
S4u8 762 7 o0so044 S$: ion PC, STYPEC ::G0 T HIS ¢ ACTER 

768 i613 001156 5: CHEB agent: i 18 it Leet OR FILLER CHARS. ? 
eube 774 013746 001154 MOV LL,-(SP) >: GET # OF FILLE R CHARS. NEEDED 
easy g0s909 000001 7$: DECe 1(SP) id A NULL NEED TO BE TYPED? 

A 004737 o0S044 ha BE stypEec BR A re A eitedceeetes 
ees ppeprs 105337 005110 DECB SCHARCHT ::D0 NOT COUNT AS A COUNT 
eee 005016 0007 BR & +: LOOP 
e460 ;HORIZONTAL TAB PROCESSOR 
e462 005020 112716 900040 gs: nove #’ , (SP) ; ;REPLACE TA WITH SPACE 
oiea p pep Sa ree Op a007 005110 ; BITe al 5 i BRANCH of | 58 T AT 
2465 005036 1372 BNE a, HE Tag T 
sie Bene fpr an a EDT Rest cSbnd Tee 
eee 105 174100 STYPEC: rsTe SEros_ :;WAIT UNTIL PRINTER IS READY 
005052 1iee7? oo00002 174072 MOVB pts: asTPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 

e478 DOS060 a51068 000015 o00002 CMPB acr, et SP) iTS CH CHARACTER A CARRIAGE RETURN? 
ees 005075 108037 005110 cLRe SCuaRcnt i Veoe-CLEAR ¢ CHARACTER COUNT 
eize 005076 1e27be oo0012 ooo002 1S: cnPS aLf .e(SP) ii ie ancnie Wes" LINE FEED? 
su55 BOEIDE 10522 Fee (PC)+ + CHARACTER 
2478 005110 O00000 SCHARCNT: . WORD & + CARACTE COUNT STORAGE 
e473 005112 000207 STYPEX: RTS Cc 
2481 .IIF HT,HT= 1 33C FOR HORIZONTAL TAB 
e482 HE LF’LF= 1 >:CODE FOR LINE FEED 
2483 ‘TIF CR'CR= 1 HT FOR CARRIAGE RETURN 
eee HE R Sib5: 200 ;;CODE FOR CARRIAGE RETURN-LINE FEED 
e86 Ae EQ. $7 aft 5: .WORD 177564 ;;TTY PRINTER STATUS REG. ADDRESS 
eee ; F EQ .25PB, STPB: .WORD 177566 ;;TTY PRINTER BUFFER REG. ADDRESS 
e430 F E ries ce BYTE 0 ;;CONTAINS NULL CHARACTER FOR FILLS 
euge - a EQ. SF ILLS bee .BYTE 2 ;;CONTAINS # OF FILLER CHARACTER 
ead ; a E ‘Ste ‘feat by -BYTE 12 ;;INSERT FILL CHARS. AFTER A “LI 
ois ; a EQ p PELG .BYTE 0 3; "TERMINAL AVAILABLE” FLAG (BIT 
oie : a EQ. $ a ASCII “2” ; ;QUESTION MARK 
e500 : IF FQ. =8C LF Sc LF: .ASCII <15> ;;CARRAIGE RETURN 
2502 "TIF £€Q .-S$Lf,SLF: -ASCIZ <12) ; ;LINEFEED 


CZRICBO, RPO4/S’6 HEAD ALNMT MACY11 30(104%6) O4-NOV-77 17:31 PAGE 49 
CZRICB.P11 O4-NOV-77 12:49 TYPE ROUTINE SEG 0049 
2503 .IIF_NE 18. . EVEN 
o% 7SBTTL BINARY TO OCTOL (ASCII) AND TYPE 
06 001 .IF B 
Be g ”  eammeanaatateiiniataaaassin iene iaciiaaaianat ede: dabei aman taa maaie 
2509 -NLIST 
e210 “RE 
ll “LIST 
esSle 33 SREREAAAAAAAAAERAEARRKKKAERARASARLRERKRAARKKEAKARAKAAARRKRARRKRRERAKRAES 
2513 'MLIST 
2514 E 
2515 ei T 
e518 000 ‘ 
251 ;#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
2518 + OC (ASCII) NUMBER AND TYPE IT. 
eo18 j #STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
2521 a * mov NUM, -( SP) ;;NUMBER TO BE TYPED 
see :% TYPOS ?:CALL_FOR TYPEOUT 
2523 1 a .BYT N ::N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
2eSe4 * -BYTE &M 3;M=1 0 t EADING ZERO 
2525 ° esis 
e526 i + AEE PRESS LEADING SROs 
5255 }#STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
ge3 j #STYPOS OR $TYPOC 
2531 a * mov NUM, -(SP) ;;NUMBER TO BE TYPED 
S236 ;* TYPON ;;CALL FOR TYPEOUT 
34 j #STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
* i * MoV NUM, -(SP) 33 R TO BE TYPED 
e537 $i TYPOC *:CALL FOR TYPEOUT 
33 114 0176 STYPOS: MOV a(SP),-(SP) ;;PICKUP_THE MODE 
40 poets 11 3 retary 005337 MOVB 1( +$ ILL $3L ZERO FILL SWITCH 
254 005 1e6 i 905341 MOVB (SP)+°SOMODE+1 ;: R OF DIGITS TO TYPE 
goue i 16 AOD s “sey ;;ADJUST RET DRESS 
2544 poet a8 li 6 900001 005337 STYPOC: MOV #1, SOF IL 3;SET THE ZERO FILL SWITCH 
254S 146 11 3 005341 MO 86; SOMODE+1 ?:SET FOR SIX) DIGITS 
eoue te it 000005 005336 STYPON: MOV a5 OCN ::SET T TERATION COUNT 
4 1 1 MOV R3,-(SP) :: SAVE 
2548 005164 010846 MOV RY’ -(SP) :;SAVE RY 
see 166 10546 MOV RS SOee) ;;SAVE R 
Bs 170 Ai 005341 nove SOMOD +1,R4 ::GET THE NUMBER OF DIGITS TO TYPE 
Sees 704 990006 ADO #6,R4 ;;SUBTRACT IT FOR MAX. ALLOWED 
2553 110437 340 MOVB 4; SOMODE ::SAVE IT FOR USE 
goee 137 905 37 MOVB SOF ILL RY i iGET THE ZERO PILL SWITCH 
5s 1 le MOV 12 y°RS ::PICKUP T NPUT NUMBER 
Seco ODESEB DOE IDE 1s th Re EO OTE HSB INTO “Co 
255e O0Se22 00404 : BR 3$ ::GO DO MSB 


LOY 
ESRIGB Pil BdeNOves? Terug | CY1} SBENRRY rodctAL cAschi) AND TYPE SEG 0050 








e559 2s: ROL °* RS ;;FORM THIS DIGIT 
ROL R 
ROL 
ea 3s ROL FS. R3 L THIS DIGIT 
4 ‘ Decs SOMODE Hits Tis olait” 
eeee at 8177770,R3 55 T ie OF JUNK 
rs RY 4 ieee 0? 
Q za $8 ff 
4S: INC 4 5 ;DON ANYMORE o’s 
7 BIS #’0,R j FAK ak a) gir asci 
es ss BIS 8’ JR 5 5 EM REapy 
257 MOV! R3, 8S i138 
2574 TY ag 330 Fon tye crt 
75 7S: DEC $ CNT 33 
ia} Bet ¢ i be °° DO 
INC RY 33 1h T DIGIT ’T A BLANK 
38 BR os, 33 earn olf” 
6S: MOV (SP)+,RS Hi 
MOV ae ae ¢ gs 
MOV (SP)+,R3 , si RE 
oo0002 oo0004 nov a Ps 4K P) ;3SE ie SFack FOR RETURNING 
RTI / +7 BE 
Se gs: _BYT 0 tet FOR AsclI DIGIT 
-BYT 0 3; TERMINATOR F YPE ROUTINE 
e588 SOCNT: *BYT 2 $SOCTAL te ay ce 
5590 SOMODE: “HORD 0 4 peste BY TO TYPE 
ge3) _SBTTL_ coe eeer BINARY TO pecimal. AND’T abisits 
2593 001 IF 8 
sou g2 SAAREASAKAKKAEASARESAKAEAAAAERHKRAKRSHRARKAKARARRKRRKRRAARKRRARAKAKE 
2596 ‘ 
eee may 
2598 ‘LIST 
5°33 cs 1) ee eemensecmunrmemae: 
seu : 
2603 noo iat 
2604 ;#THIS ROUTINE Is | 0 CHANGE A. A 16-BIT TNARY  NUMBE NUMBER TO A S-DIGIT 
e605 3ST p cr YPE NG ON WHE THER THE 
06 ; 98 a Five ive A spac aatah vos BE TYPED 
2697 : HE RDING WILL ALWAYS BE 
sone pan PLACED WITH 
2610 a , HOV. pest i ;PUT THE INARY NUMBER ON THE STACK 
seid bw 3;G0 TO ROUTINE 
2613 oos34e STYPDS: 
2614 OOS342 10046 MOV RO, -(SP) ;;PUSH RO ON STACK 


CZRICBO, RPOY/’S/6 HEAD ALNM MACY11 30(1046) O4-NOV-77 17:31 PAGE S1 / 
CZRICB.P11 O4-NOV-77 12: us CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEG 0051 


; 
é 


2615 01014 MoV $s BUSH R1 ON RES 
a : fj Bale 
1 g2209 BY + fe oa AND SIGN 
1) Eee ee ae 
5e59 visa nena af e ia FAIS BCD See 
ee) Ge NC He HE BCD DIGIT BY 1 
se35 $83 “s FEF Hergl acs Sictiso. 
Ss Be lac tie Lie We los 0 
2638 
eei6 
2 
S 





Ig . 
yee me" OPE Bilge, SSF ecaoy 9 p10 
il ‘ hove eta sean R IN THE OUTPUT BUFFER 
a5 
: 000010 at Hea ie “No x 
a8 er HB opck Po occa 
eoo0 905 i 7 es rere Hoe THe So THE FIRST NON-ZERO? 
eee : {e863 177777 177776 OR Bg 18 T sean FAR FOR TYPING 
cer Bees roy pee STeek INS fs 
36 + 1 MOV 3;POP STACK INTO R 
‘ “ns, HOV. 5 i POP TACK_INTO 
53 biecee ata oooco4 mov : tM MUsT THE STACK 
Bee 44 pease me | R ;;RETURN TO USER 
sees Goeees Soarat ag 
see SQBLK: “BLK Wy 
Pre SBTTL TTY INPUT ROUTINE 


m 
3 


00 -IF B 


= 


CZRICBO, RPO4W/S/6 HEAD 
C€ZRICB.P11 O4-NOV-77 
2671 
267 


Gru) 


seReRRIERCRORERRERRE RSS ot ee 


NI 
=) 
he 


RASA ARR AA AA 
PN SO ODO VON LW OBD 


8 


ALNMT 
12:49 


MACY11 OL 10%) 


TY INPUT ROUTINE 


O4-NOV-77 17:31 PAGE Se 


REGGE GEER EEE EERE RA RAAERERERELSLEELAAARAARARARARRARES 


tee 
ar 
Fite SKEKKKAAKASSAAKRARSLARSKKKRAAARARALARUAARAAAAREAAERERARAAAELERRAES 
f 
IST 
STKS, STKS: 
if E ‘sho.thie:: .WORD 177560 ;;TTY KBD STATUS 
ra STKB -.WORD 177562 ;;TTY KBD BUFFER 
Te N ys “A888 : R oF TEMS IN QUEUE 
a Hep 8 $ MEIER G I E 
: OUTPUT POTN ER 
ou. ‘BLKB 7 s;1TY KE = 
a? 81>, EVEN 
ark 45 ROUT ir 
«IH SR Mite NITIALI TTY KEY NPUT UE 
at tie Cue HE INTE TOR LAE AD CURN ON yore BOARD ONT ERRUPT 
Fale 
; isp PC, STKINT 
: TURN 
$TKINT: CLR CLEAR COUNT OF ITEMS IN QUEUE 
v He TKIN ; ;MOVE THE STARTING ADDRESS OF THE 
MOV § KIN a TAenear 33 Ue INTO THE INPUT & OUTPUT POINTERS 
MOV 33 IN IZE THE KEYBOARD VECTOR 
MOV Bath VEC Hy 730 LEVEL 4 
TST K ;; CLEAR FLAG 
Vv eta , aSTKS ;:ENABLE TTY KEY INTERRUPT 
RTS ?:RETURN TO CALLER 


TH ee EH AENESE 


THE TTY KEYBOARD 


FROM THE INPUT BUF BUFFER AN AND PUTTING 


“CONTROL -C™ (tC) sTKINT Le CALLED Ai 


be faces ext 12 A MADE TO THE “CONTROL-C” RES 


+ ba MOVB TkB -(SP 
BIC #tC17?, (SP 
.IF NB STARTI 
CMP (SP), #3 
Hype = ScNTLC 
ISR PC, STKINT 


ART ADDRESS (START1) 

se THE CHARACTER 

;STRIP THE JUNK 
TA CONTROL c? 
I 


Bel 
i hs A CONTROL-C (fC) 
$ IT THE KEYBOARD 


SEG 00Se2 


CeRICe Pil B4eNOV- 
57 2 0258 8887 


p BRARBARAAR! 


yyyeyty 
Seo 


EEE ErSTSESa PED 


rr iN 
ooo 
NOW 





ALNMT 
12:49 


001460 


000007 
000176 


173164 
173156 


177666 
1 


MACY1L1 9 


(1046) O4-NOV-77 17:31 
TY INPUT ROUTINE 


TST (SP)+ 
JMP STARTI 


.ENDC 
.IF NE SSETUP&100 
iS: CMP (SP), 07 
001140 ane ; G, SWR 
BEQ es i 
.ENDC 
IIF NE TUP8100,2$: 
iff Eo § TUP, £108,7 : 
o0ss66 ‘ SFicnt 
TST t 
Be iS 
3s CMP (SP), #23 
BNE 
CLR KS 
T (SP)+ 
31S: TSTB TKS 
BPL 8 
Stamens 
CMP toh) + bel 
BNE 5, 
173130 MOV #100, a$TKS 
RTI 
328: INC STKCNT 
MP (SP), #140 
BLT 
CNP (SP), #175 
BGT 
BIC a4 
4S: ROVE ( 4425 asTKQIN 
005603 Ans Teeth esTKaENO ! 
00ss70 a 7 r TKOSRT, STKQIN 
S$: RTI 
~ ENDC 


24 NE SSETUP&8100 


PAGE S3 


+ EER Phot c = fart 
Beda P © 


Ao rare ae 


5 Mo acs UE FULL” 
i CLESN  CHARAC RAC TER OFF OF STACK 

319 17 A CONTROL -S? 

i i wae” KEYBOARD INTERRUPTS 
;;WAIT FOR A CHAR 

ae we L ITS THERE 

ae TF onTot ie 

31S IT A 

Est TTY KEYBOARD INTERRUPTS 


“3 


IF 
Hi BRa IT A ft om 


oon 
Fes THE POINTER 


o SEELKLEA SELES RAARERRERA RARER AASRARLERLARARELELARARRRERKARESRAEE 


ar 
hit 


Le seUURUUEEEERRORHEReEeESEEeUaEEEEEEeEeEeEsEEesuususneseeeeees 


SEG O0S2 


CZRICBO, RPO4’S’& HEAD ALNMT MACY1LI (1046) O4-NOV-77 17:31 PAGE S4 
CZRICB.P11 O4-NOV-77 12:49 Y INPUT ROUTINE SEQ 00S4 
2783 ; #SOF TWARE H REGI ROUTINE. 
73 ee ie Hert PRON Fue” TRAP H LER, BNO 
CHANGE IN TCH : CE STER TRAP 
288 ota TTY INTERR 
006072 022737 000176 001140 iff T-SWR SELECTED 
S ibe opiis? 173036 ‘e r, ee ee GHAR ua ITING? 
$783 Boeibs {80151 Beefs P Rot ext? 
279 110 11774 17 i asTkg -(SP) ii ngs 
g 114 27 § iz g Ic #tC17?, (SP) ::MAKE IT 7-BIT ASCII 
ee ODe1S4 001300 ” ipa i315 hor” conreee in” THE TTY QUEUE 
2795 i+ BN extr 
2796 
3737 003 .IF B 
te] . ymatsenane>paecrsteneeiesr ar eerie igi» DACRE et aerial ma 
2800 é ist 
2801 R 
ek g 1 recrnmesnermerem seem er 
2805 
2806 Ef T 
e608 _ :#CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVIC 


jECONTROL Ger ING | TWeeB ano eee Ie fh "REGISTER BEr On had 


LEST 67 001134 000001 


Bris Ble eer 

1 26 (SP )+ 33 “wt 7Y trou or STACK 

Ope 144 bos77 Ive ee ta a ses ast ne aeae TY “RE pO BRD RTERRLPTS 
180 112737 001:35 #1,SINTAG ERRUPT ICATO! 


Rtetatittetetteted 
Ob be pe pe Fe pw fe pe ps 
WONMW CWO 


a 
ee 
= 


LTCH GISTER C ROUTINE. 
ie Sass IN SOF eOPAMOLER, OND ILL TRAP CALL 


eeee 
e823 3;1S THE SOF T-SUR SELECTED? 
33 H NO 
2825 sta 4s ;;CHAR T ” 
sess BPL a NO *T WAIT AROUND 
MOVB kB -(SP) He THE C 
2828 BIC #tC17?, (SP) ;;STRIP-OFF THE ASCII 
2829 CMP 87, (SP53+ ::1S IT A CONT 
5820 $3 RET Te ig 
1 TOB, #1 33 N AUTO-MODE? 
Fazer BEQ 1S$ ;;BRANCH IF vee 
533 IFTF 
s63¢ OO61SE 104401 007005 TYPE » SCNTLG $s ECHO THE CONTROL-G (?G) 
2836 O0E 162 O44O! o70le SGTSWR: TYPE SMSUR RENT CONTENTS 
2837 166 013746 O17E canine OV CWREG, -(SP) ap ote SWREG FOR TYPEOUT 
- «>, ‘3 


CZRJICBO, RPO4/S/’6 HEAD ALNMT 
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CZRICB.P11 


2839 


EECHILL LLL LASRASEARRR ALS Guecca cuir erat ne: 


172 1 
174 


NOI 





007023 


172734 


188 


MACY11 a 


000001 
172666 


172614 


o0c0c01 
172572 


O4-NOV-77 


17:31 


Y INPUT ROUTINE 


19$: 
7$: 


- IF NB STARTI 


17S: 


18S: 


TYPOC 
E 


TYPE 


MOV 
JMP 


aS rt5s” (Sp 2p} 
(SP), #3 
gacnsec 
bn Fhc, st 
mens 


(SP), #25 
10$ 
Ma) 


be SP 


‘port 


8 


uN te 

Cal eee ‘hd 
Bye eo” 

B 

5 


=z 
4 
Bu 
ee 
ro 


o 
ee ee 
9 
re 


Wu vr 


SR Ietetete) iatetates Me te 
es beg 

~ 

w 

v 


Cc 
m 
w 


oy eh 4 8 


Oo -~WMN TUUMNOW 


Tt 





PAGE SS 


: +60 TYPE--OCTAL ASCII(ALL DIGITS) 
bor, W SWR 

then 

Vite eee AGAIN 

;;PICK UP CHAR 

::MAKE IT 7-BIT ASCII 

IT A ONTROL-C? 

ete ONTROL-C (tC) 

NABLE TTY KEYBOARD INTERRUPTS? 


cou ri KEYBOARD INTERRUPTS 


oy 


BARE A eon" 


H I 
TRO (tU) 
OUS INPUT 


tives ECHO C 
+ TE ORE Beey 
;;LET’S TRY IT AGAIN 


IT - " 
IS ree THE FIRST CHAR? 


P STACK 


> <LF> 
3 TTY KBD INTERRUPTS? 
NOT 


at: 


F YES 
7? 


miecohe Ber 


T 
3312S THIS a3 FIRST CHAR 


Y' 
SIMULATE CONTROL -U 


SEG OOSs 


CZRJICBO, RPO4’S’& HEAD ALNMT 
O4-NOV-77 12:49 


C2RICB.P11 


Be 


furor’ 
Oow 
> = bs bas Be ps bo pe pe pe 
WONM UC WOW s) 


DoD DwwD 


: 


SREB Se 


001 
000 


001 


000 
001 


000004 
coo004 


MACY11 Be, 


000002 


900004 
005603 
005572 


Bs 
; BSASL 


O4-NOV-77 17:31 PAGE S6& 
TY INPUT ROUTINE 


LSB 


-IF B 
5, SSAAAERAA AERA ARERR AA AR ARRL AAA RAAAAREAA RARE LRARARRAAR KARR REEE 


. iFF r 
“REPT 
IST 


> 


WET TII TIT TTTtt iT tttiittittttttitiiititititititittiiiittiittttee 


LIS 
'ALIST 
- ENOR 


IF 
j THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


"IFT 


es: 
. IFF 
SROCHR: 
1S: 


RDCHR ;;GET A CHARACTER FROM THE QUEUE 

RDCHR ;; INPUT A SINGLE CHARACTER FROM THE TTY 

RETURN HERE ;;CHARACTER IS ON THE STACK 
::WITH PARITY BIT STRIPPED OFF 

MOV (SP) ,-(SP) ;;PUSH DOWN THE PC AND 

MOV 4(SP5,2(SP) i; THE pS 

CLR cd 4(5P) +:GET READY FOR A CHARACTER 

CLR ° -<(SP) ;;PUT NEW PS ON STACK 

MOV #0,-(SP) ;;PUT NEW PS ON STACK 

MOV #64S,-(SP) ;;PUT NEW PC ON STACK 

RTI ;;POP NEW PC AND PS 

ist STKCNT ;;WAIT ON A CHARACTER 

DEC KCNT js DECREMENT THE COUNTER 

MOVB STKGOUT,4(SP) ::GET CHARACTE 

INC KQOUT 33 paTE THE POINTER 

cne TKQOUT, #STKQEND’ ; ;OID IT GO OFF OF THE END? 

MOV r TKQSRT, STKGOUT  j ,RESET the POINTER 

RTI $3 

MOV (SP),-(SP) ; ;PUSH DOwN THE PC 

MOV 4(SP5,20SP) :;SAVE THE PS 

TSTB astKs ;;WAIT FOR 

BPL 1$ ::A CHARACTER 

MOVE aSTKB,4(SP) +:READ THE TTY 


SEG O0SE 


ESRICB. 


2951 
29Se 
2953 

4 

S 
2956 
e3s7 
e958 
e3s3 
23960 
Sak 
2964 
29éS 


e966 
2967 
2968 


RPOY / 
Pil 


BYenow=?7 


001 


ALNMT 
12:49 


006760 


006767 


PeTTIII Tt iit tii ti ttiiititititiittttitititititittttititititttt Te 


WTTTIIITTITTIIII ITT TITitiTttiiititititititiiitiitiii 


3; INPUT A STRING FROM THE TTY 

se ss FIRST CHARACTER WILL BE ON THE STACK 
;; TERMINATOR WILL BE A BYTE OF ALL O'S 

;;SAVE R3 

;;CLEAR THE RUBOUT KEY 

;;GET ADDRESS 

;;BUFFER FULL? 


;;BUFFER FULL? 
;;BR iF YES 
260 READ ONE CHARACTER FROM THE TTY 


;;GET CHARACTER 


MACY11 39( 1046) O4-NOV-77 17:31 PAGE S7 
TY INPUT ROUTINE 
BIC #70<177> ,4(SP) 
CMP 4(SP), #23 
2s eae 3S iKs 
BBL H 
MOVB STKB,-(SP) 
BIC #tC177, (SP) 
CMP (SP)+, bel 
NE es 
R I 
3S: CMP 4(SP), #140 
BLT 4§ 
CMP 4(SP), #175 
BGT 4§ 
BIC #40, 4(SP) 
4S: TI 
. ENDC 
LIF NB 7 
LIFF 
{NIST 
S$RDSZ=8 
-LIST 
> ENDC 
TIF GT $RDSZ-1 
IF B 
tFF 
-NEIST 
"REP 
LIST 
"MLIST 
- ENOR 
‘Ege 
j RTHTS ROUTINE WILL INPUT A STRING FROM THE TTY 
i IN 
i RETURN HERE 
SROLIN: MOV R3,-(SP) 
_IF NB <X> 
CLR -(SP) 
ENDC 
is: MOV sSTTYIN,R3 
-IF B <7> 
es: Cc SSTTYIN+S. ,R3 
2s: CMP eSTTYIN+7,R3 
ENDC 
BLOS 4g 
ROCHR 
MOVB (SP) +, (R3) 
IF 87 


/IF NB START 


SEG 0057 


RPO4’S/6 HEAD _ALNMT 


C2RJCBO 
O4-NOV-77 12:49 


MACYii 3011046 
C2RICB.Pi1 30 10082 


) NOTIN 17:31 PAGE SB 
Y INPUT ROUTI 


SEG cose 
CMPB (R3) 
NE is 


Hs IT A_CONTROL-C? 
CNTLC 


YPE A ONTROL-C (tC) 


me 


3010 LIF NB <x tee (spe ZiGLEAN RUBOUT KEY OFF OF THE STACK 
3011 P)+,R3 ; ;RESTOR 
15 “ ARTI + GOTO ea OL-C RESTART 
14 1 Cc 
3018 006546 1ee7i3 000177 i0$: ot B #177, (R3) 3;1S IT A RUBOUT 
3017 ss2 idee BNE S$ $88 IF NO 
3018 5 4 =718 rst (SP) ee THIS THE FIRST RUBOUT? 
331 006 116737 ne 006756 nov 8’\,9S is A BACK SLASH 
2 Does bi2716 17 538 - nov b-1, (SP) $5 BET TUE mug KEY 
3053 Doee06 006760 ; cnr R3, aSTTYIN ::STACK EMPTY? 
906606 006756 nove (Ra), 98 33 TO TYPEOUT THE DELETED CHAR. 
3 D066 i — BR es 1180 Ty ANOTHER CHAR. 
$3 Ss: Tor ¢ ) $s RUBOUT KEY SET? 
3031 : 0001 006756 no #’\,9S sore a Back SLASH 
3033 O66 36 bosoie _ CLR tsp) : CLERR 7 KEY 
3034 DOBE40 beer is o00025 7S: cHPS ar we a3 TERR” Cre u? 
3036 Doeres 104401 007000 YPE CNTLU A A CONTROL “u" 
3038 OEE 2713 p00022 8s: MPB #22, (RB) nana ER A “tR”? 
3040 DOES 1 13 CLRB (R3) fac THE CHARACTER 
3041 OOBE5s 104401 001161 TYP , SCRLF : TY Le 
3042 O066 10440} 760 TY STTYIN ; i TYPE Pe ENPOT § TRING 
3043 006674 00071 ai 23 ::GO PICKUP ANOTHER CHACTER 
364 aye ae paw BNE 3$ ;;SKIP IF NOT 
364 Bue 006676 O4401 001160 4s: TYPE QUES TYPE A ’?? 
3048 0067 bbo71 tI CLEAR THE BUFFER AND LOOP 
3049 Bperts : 13 756 3S: Hove (R3), 9S ?:ECHO THE CHARACTER 
set ca he Bs 000015 CMPB biS, (R3)+ ¢ CHECK FOR, RET URN 
3052 0067 1 BNE 2s LOOP IF NOT RETURN 
3053 O06 i 77777 CLRB -1(R3) i ¢LEOR RE RETURN (THE 1S) 
4 0067 401 1162 YP $F A PF RLERN EED 
5 z O 7 . TIF NB OO, Ne a3(sP* sas AN RUBOUT KEY FROM THE STACK 
2 006736 11646 MOV (5P),-(SP) + RESTORE A THE STACK AND PUT ADDRESS OF THE 
16666 000004 900002 MOV 4(SP5 2° SP) 33 FIRST ASCII CHARACTER ON IT 
305 006746 Bd506e 006760 O00004 nov aSTTYIN,4(SP) eae 
30e BE BOE BE? 00 9s: BYTE O : STORAGE FOR ASCII CHAR. TO TYPE 
3062 006757 606 ‘BYTE : TERMINATOR 


EER TEE FP Ot Boe BEAR AL Mg MACYLL 30h CNR UT ROUTINE, 273! PAGE S9 SEO 0059 


3063 002 .IF 8 <7> 
3068 stryIn: -BLKB 8. ; ;RESERVE 8 BYTES FOR TTY INPUT 
3066 006760 000997 sirvan: .BLKB 7 ;;RESERVE 7 BYTES FOR TTY INPUT 
3068 LIIF NOF SQUES, SQUES: 
3063 IE EQ. - sSQUES, § SQUES: ASCII "7" ;; QUESTION MARK 
¢ 
3071 HE Eo" eo Secmee sc Yo té: ,ASCII «15> ;CARRIAGE RETURN 
3073 HIE co Ae SLF: LASCIZ (12 ;;LINE FEED 
74 000 * ENDC 
3075 001 ‘IF NB 7? 
ra 
3077 006767 207 177777 000 “HE F BOF. “an sASCIZ ¢207><377><377> ;;CODE FOR BELL 
3078 001 a at? TAR i s an 
3064 006773 136 006503 000012 “HE ENF seni NILE: LASCIZ /#C07615><12> ;;CONTROL “C™ 
SOBs 007 oses CNTL Cc 4#U7¢615><12> ;;CONTROL “U” 
3oe3 Bornes [S*Pse BOPAES aon f08 Seni LG: “BSE ig Rar CONTROL ee 
3085 007012 ggsois 053623 020122 €15><12>/SWR = / 
3087 0 bo7589 040 047040 OS3SOS SMNEW: .ASCIZ / NEW = / 
3088 007030 036440 000040 " 
3580 ‘Tie ERUTOR, Buroe.: 
303! - HIE EQ. SAU sit 08 SAU AUT BYTE OQ ;;AUTO MODE FLAG 
3033 wee | a naga! INteg: .BYTE O ;; INTERRUPT MODE FLAG 
3095 [TIF NE 18.,.EVEN 
3036 ‘SBTTL RANDOM NUMBER GENERATOR ROUTINE 
30 , 
3095 aos g j SEMCAsOeENaeHUseeenseenneennanensnensoenansensnennaneensennecs 
3101 RET 
se ‘ct 
te j[aEENOAUAMNSOENSeNNDONssenaauNaeenaensesesennenussnaeuneenaeeys 
3106 ENOR 
31be o00 Cis) 
3109 :#THIS R QUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 
3110 UHR 8 ROU MACE OF O Foret saat 
3lle :# ish PC, SRAND aa THE ROUTINE 
ne ie heteee LNingeN USE az poem 
Zi16 i+  SHINUM, SLONUM 
3117 oco7o24 SRAND: 
3116 007034 o1oo4e MOY RO, -(SP) ;;PUSH RO ON STACK 


ESRI ERO, T Bene ALNMT MACY11 Rugs) O4-NOV-77 +a bout it 60 


1 7 12:49 DOM NUMBER GENERA SEG 00Ed 


~ 


3119 7036 1 MOV RL, - (SP) ; ;PUSH RL ON STACK 
3120 1 MOV Re’ -(SP) ::PUSH Re ON STACK 
le 1 7134 MOV $LONUH, RO ;;SET RO WITH LOW 
1 1 2132 MOV HINUM, RI ::SET Rl WITH HIGH 
1 177771 MOV 8-7, 3;SET IF coun 
3124 1S: ASL RO i i BHIE T AND 
3125 ROL R : ROTATE Y INTO RI AND 
ais INC R 5 CHECK F 
31 4 1374 BNE 1 : CONTI SHIF LOOP 
3128 8 a8 00 007134 ADD $L NUM, RO 33 i 9 MAKE xX 129 
3130 es 74 35 007132 ADD SHINUM, RI >: ADD R TO MAKE X 129 
3131 7100 bes 00105 AD #1057,R0 >: ADD CONSTANT 
313¢ 0071 005501 ADC R1 ::PR TE CARRY 
1 0071 062701 047401 ADD #47401,R1 ; ADD HIGH CONSTANT 
3134 OO71lle O1 007134 MOV RO, UM ;35A 0 
3135 907116 10137 007132 MOV Ri SHINUM :: SAVE R1 
3136 oO071e2 1 MOV (5P)+,R2 ;;POP STACK INTO Re 
3137 007124 012601 MOV (SP)+’RI ::POP STACK INTO R1 
3138 007126 012600 MOV (SP )+'RO ;;POP STACK INTO RO 
3139 007130 07 Cc ; ; RETURN 
3140 007132 176543 “a 17654 
3141 007134 1234S6 ONUM: . WORD he ° 
3ide -SBTTL INTEGER DIVIDE ROUTINE 
3144 001 .IF 8 
aie 5 genta a aaa ite ih tht 
id8 -NLIST 
3iu6 a C3 
313° ee 
3152 “ENOR 
3123 900 asi 
3155 ;*#THIS ROUTINE WILL DIVIDE A 32-BIT TWO’S COMPLEMENT INTEGER 
3156 > #DIV NO By A 16-8 106 »g COnPLEMENT Infecer DIVISOR GIVING 
3157 :#A 16-BIT TWO’S LE N INTEGE QUOTIENT AND A 16-B1T REMAINDER 
3158 t#DIVISION WILL Pe SO THAT THE REMAINDER IS OF THE 
3159 i SAVE SIGN AS THE DIVIDEND. 
3161 2 MOV LOW O1vi ND,-(SP) ;;THE HIGH DIVIDEND MUST BE < 1/72 
2162 : i MOV HIGH DIVE END, ~(SP); AS LARGE AS THE DIVISOR 
3163 +H MOV pivis , (SP) 
3164 * i JSR PC, $DIV 
3165 i RETURN ;;QUOTIENT & REMAINDER ARE ON THE STACK 
2166 ;# =0 TMPL ES NO RROR 
2167 3% “yy ei MPL F ROR Occ 
2168 : # “Cvs IVIDE OVERFLOW OCCURRED 
2189 i# “C"=s1 ATTEMPTED TO DIVIDE BY ZERO 
2171 : i 
217e i STACK NO ERROR OVERFLOW DIVIDE BY ZERO 
3174 :# TOP REMAINDER ALL ZEROS ALL ONES 
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-NOV-77 le INTEGER DIVIDE ROUTINE SEG 0061 
;% +2 QUOTIENT ALL ZEROS ALL ONES 
S$DOIV: 
1044 - a a TRAP ;;PUSH OLD PSW AND PC ON STACK 
enoc MOV (SP)+, ;;SAVE THE PSW IN 
o4 at 000017 : BIC #17, (SP) TRIP ALIAY CONDITION CODES 
B16o46 MOV 0,-(5P) He RO ON STACK 
10146 MOV Ri,-(SP) +s BUSH Ri ON STACK 
010246 MOV Re, ~¢ ) i ;PUSH ON STACK 
10346 MOV R3,-(5P) HE R3 ON STACK 
CLR -( SP) ;;SAVE A PLACE FOR SIGNS 
12746 21 MOV #17. .-(SP) ;:SETUP THE I TION COUNTER 
16601 24 MOV 5 SP), ;;PICKUP THE DIVIDEND 
1 O22 MOV (SP)'R 
1 L ;;CHECK THE SI 
000003 CB (SP) > KEEP TRACK THE SIGN 
400 G 0 33 I GATE HE ORIGINAL 
Mee + 
000020 1S: MOV g (SP) ,R2 3 PICKUP THE DIVISOR 
BLT SIGN 
be 999003 000014 Bis #3, 14¢SP) Ha godesligetee 
bis706 1 3 MOV #-1,RO MATNDER TO ALL ONES 
24 BR 7$ tir 
680401 oo0002 2s: INC g<SP) ::KEEP TRACK OF DIVISORS SIGN 
402 3S: NEG Re ;;NEGATE THE ORIGINAL NUMBER 
popedd 4S: CLC ;; CLEAR i 
BR aS jiSTART FORMING QUOTIENT 
1 SS: ROL RO $5 TION MSB’S 
i MOV RO,R3 33 
03 BOD Re; R3 5 COMPA vibER'S & DIvISOR 
MOV BS Ro RENAL yee THIS LOOP 
101 6S: ROL Rl ' ; }QUOTIEN Retr ER TERS HERE 
1 ai BNE re + : NO 
apt 3I Bi ti TE ne. 
000002 000014 BIS we, 14(SP) STATUS WORD 
CL R enalnoen Yo ALL ZEROS 
og ney Rost ie EAR R FROM ie eee 
TST (SP) 3 STON CORRECTION NEEDED? 
BGE 95 33 J 
NEG RO i+ BB TE REMAINDER 
000001 cLRS 1(SP) 3s CLEAR Sie 
DEC (SP) ;;BU *T FORGET QUOTIENT 
9s: TST (5P)+ j ; QUOT ENT SIGN CORRECTION NEEDED? 
BEQ 10S ;;BR IF NO 
NEG Rl ?:NEGATE QUOTIENT 
00020 10S: MOV R1,20(SP) +;RETURN QUOTIENT AND 
000016 OV RO; 16(SP) :: REMAINDER TO USER 
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30(1046) O4-NOV-77 17:31 PAGE 62 
INTEGER DIVIDE ROUTINE 
MOV eG ;;POP STACK INTO R3 
MOV (SP)+, ;;POP STACK INTO Re 
MOV tog 35P TACK INTO R1 
MOV (SP)+,R 33P TACK_INTO RO 
yy (SP)+,2(SP) ;;SETUP TO RETURN CONDITION CODES 


R + RET 
.SBTTL SAVE AND RESTORE RO-RS ROUTINES 


IF B 
s LEKKKAELAAKAAKLAARAHKKRKAALELAEAAARRAAARAREARARARRHKRKKARRKRLEAAAAES 


iiee 
"REPT 


TTT titi iit ititittititittiititiiiitititiiitiiitiiitittititty 


LIST 
"MLIST 
“ENOR 
“LIST 


- ENDC 
;*#SAVE RO-RS 
; CALL: 


;# RETURR 
;#UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


;* 4 
yh eet 4 1 1 
) 


5% +2---(+] 


3% +4---RS 
% +6---R4 
;# +8---R3 
#+10---R2 
;#+12---R1 
3 #+14---RO 
SSAVREG: 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 
;#RESTORE RO-RS 
, 
;#CALL: 
+ & RESREG 
$RESREG: 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 


% 


RO,-(SP) 
Re’ - (SP) 
ete 
Re’ =( =p) 
g{SP),-(SP) 
(SP),-(SP) 
g (SP), - (SP) 
22(S5P)) -(5P) 
(SP)+,22(SP) 
a 3(8P) 
(SP)+,2e(SP) 
(SP)+,22(SP) 
(SP)+,R5 
(5P)+,R4 


ACK 


RO ON ST 

;;PUSH R1 ON arta 

33 ra ON etack 

5s BUSH RY ON STACK 

s8 ON STACK 

55 Be PS OF MAIN FLOW 
33 OF MAIN FLO 
a PS OF CALL 

$8 PC OF CALL 


SEO O0&2 


sueeaaae 


SSeS eRaSEReR aR Na 


Wi) 
WU) 


batatatatay 
os Oe be ba be pee 


WO NOU WO. 


tad 
1) 


0074Se 


0074S4 
007460 
007462 


7' 
007472 


007474 


RPO4/S/6 HE 


Cayce 11 


-NOV- 
te 
1 
1 

ee 


001 


000 


O11646 


ALNMT 
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o00c0e 


007506 


LOS 
macvHt SEPM RENO ho-AS' Aries © 


MOV (SP)+,R3 ;;POP STACK INTO R3 
ney (5P)4'Re ;/POP STACK INTO Re 
MOV (SP + Ri j/POP STACK INTO Ri 
)4'R !!POP STACK INTO RO 


- SBTTL Ril DECODER 
FB 
7 aceasta aaa atriatariae tannin 


fr 


[sreseeHaneanenaeenaesseensersaeenereaensncesereaenensesertasess 


iat 
‘a 
dat 
;#THIS ROUT be Lhe he THE _L Loar YTE OF THE “TRAP” INSTRUCTION 
ings § I a T AP TA TABLE FOR THE STARTING ADDRESS 
p ROD Tie HEN USING THE ADDRESS OBTAINED IT WILL 


einen 
:tc0 10 THAT ROUTI 


ster: MOV RO,-(SP) ;; SAVE RO 
stRap: MOV 2(SP),-(SP) fei ao THE STATUS OF 
BIC we, (SP) 5 THE CAL R--DO NOT ALLOW 
Vv #1$,-(SP) 36 f 
RTI ji SET. HE NEW STATUS 
I$; MOV RO,-(SP) HH 
: MOV 2(SP),RO ;;GET TRAP ss 
TST oR) EC KUP oye 
on MO (RO), RO :;GET RIGHT BYTE OF TRAP 
BPL. STRAP ee Feet TRAP BELOW 200 
ois $1¢17?, RO User, TRA RAP AB ve TP 17?, GO TO 
STRAPI: © 
. ENDC 
-IF NB 
CHP WSTERM, RO CHECK FO FOR OUT OF BOUNDS 
HALT . >:OUT OF OBOUNDS 
BR .-2 } | HANGUP 
. ENDC 


a RO ;;POSITION FOR INDEXING 
MOV STRPAD(RO),RO ;; INDEX TO TABL 

RTS RO 3360 TO ROUTINE 
3;THIS IS USE TO HANDLE THE “GETPRI” MACRO 


STRAP2: MOV (SP),-(SP) ;;MOVE THE PC DOWN 


SEG 0063 


CZRJCBO, RPOY”S’6 HEAD ALNMT MACYi1 3011046) O4-NOV-77 17:31 PAGE 64 


CZRICB.P11  O4-NOV-77 12:49 TRAP DECODER | SEQ 0064 
3343 007476 016666 000004 oD0002 MOV 4(SP),2(SP) ;;MOVE THE PSW DOWN 
3344 007504 000002 RTI ;;RESTORE THE PSW 

m4 Aap eeczn” BB 'FeapsstRe>, \STRP, <MSG> 
3349 sTRPss TRAP+ 
3350 Enon 
T A,B,C,D,COMNT 
3: i Eo Raceo isc 
4 TTL TRAP TABLE 
SIMI ONTA STARTING ADDRESSES OF THE ROUTINES CALLED 
Hee rR abe INSTRUCTION. 
3359 ; ROUT INE 
ee! (=r nn ow meee 
36 $TRPAD: .WORD  STRAP2 
36. ‘TP or GNS, .NLIST 
3364 A= 
3365 .IIF NOF_GNS,.LIST 
a3 . ; | FsCALL=A TRAP+D(C) COMNT 
MACRO Rat Re 
3369 STERN. - “$TRPAD 
3370 
ae EB ee. 
TTL TRAP TABLE 


Soy THE TRAP? 1 RINE THE OR TART ING ADDRESSES OF THE ROUTINES CALLED 


BeeasS Goss 


; ROUTINE 
007506 007474 $TRPAD: .WORD STRAP2 
007510 004674 vn STYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEQUT ROUTINE 
3384 001 /IF OF STYPOC 
3385 oo2 (IF_EQ STRP-1 
386 ‘SBTTL TRAP. TABLE 
saTHI ONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
385 tae etka TRUCTION. 
3391 ; ROUT INE 
3392 ROUTINE 
3333 ne $rapap: .WORD STRAP2 
ne 007512 005140 : $1yP0C ; ;CALL=TYPOC TRAP+2( 104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
g -2E ree § trent TABLE 


: 


c ICBO 
CB. P11 


BOVE La 


ee ee 
ONOU £WueO 


Pee eP PEPE EELee 


OO 


Fee SSSSESPPP SSIS HHH HS 
DEB ENE Cave uO NOUV 


: 
SREGEAS 


ONO” 


dies 


4 
vs 
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a 
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007522 006 


ALNMT 
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SEO O06 
;ETHIS TABLE CONTAING THE STARTING ADDRESSES OF THE ROUTINES CALLED 
; ROUTINE 
érrPao: ares STRAP2 
vou gBIXPOS :sCALL=TYPOS —TRAP#3(1ONHO3) TYPE OCTAL NUMBER (NO LEADING ZEROS) 


LIF 
“do rHe Sthap Tape 
; #THI ONTA STARTING ADDRESSES OF THE ROUTINES CALLED 
Ea Fee tRASs INSTRUCTION. 
étRPAD: .WORD STRAP2 
7 STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
LIF TYPDS 
“TE Fe Stap-t , 

fe 2 
:HTUIS TREE CONTAING THE STARTING ADDRESSES OF THE ROUTINES CALLED 

TRUCTION. 


érreap: .WORD STRAP 
STYPDS ;;CALL=TYPDS TRAP+5(10440S) TYPE DECIMAL NUMBER (WITH SIGN) 


HPS OF sree 
AP TYPBN,STYPBN,t/TYPE BINARY (ASCII) NUMBER/ 


TSWR 
“TE fe TRAP TABLE 
Sa Fue TRAP INSTRUCTION. ADDRESSES OF THE ROUTINES CALLED ' 
; ROUTINE 


étrPAD: .WORD STRAP2 
SGTSWR ;;CALL=GTSWR  TRAP+6(104406) GET SOFT-SWR SETTING 


ENOC 
, fe Stee TRAP TABLE 


;*#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


BOE 


CZRICBO, RPON/S/6 HEAD ALNINT  MACYI1 30(1046)_ DY-NOV-77 17:31 PAGE 66 ee 
5 ;#BY THE “TRAP” INSTRUCTION. 
se , ROUTINE 
étreAD: .WORD  STRAP2 
He onsB7e “ENDC SCKSWR ;;CALL=CKSWR © TRAP47(104407) TEST FOR CHANGE IN SOFT-SwR 


aes O31 “TP BE sagcwe 


. SBTTL TRAP TABLE 
; #THI ONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
feeY THE TRAP" INSTR 


3468 TRUCTION. 
3420 ; ROUTINE 
342 sos STRPAD: .WORD STRAP2 
3474 007526 006434 4 SROCHR ;;CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
x7 B31 TP Oe sens 
3478 “TE FS TRAP TABLE 
:#THIS T CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
3481 ; ¥BY Fue eTRAp™ INSTRUCTION. 
3483 ; ROUTINE 
3185 Mi $TRPAD: .WORD STRAP2 
3487 007530 o0bSe4 “£105 SROLIN ;;CALL=ROLIN TRAP+11( 104411) TTY TYPEIN STRING ROUTINE 
F 
350 vee. wf BOT RAP RDOCT,$RDOCT, */READ AN OCTAL NUMBER FROM TTY/ 
F 

3435 _ IF OF SEO E Sap RDDEC, SRDDEC,*”READ A DECIMAL NUMBER FROM TTY/ 
3494 000 -ENDC 
3495 001 DF $SAVREG 
3496 002 “IE oo -1 

37 SBTTL TRAP TABLE 
34399 ; #THI weet CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
3500 : #BY * Fags INSTRUCTION. 
350¢ ; ROUTINE 
3504 va) $TRPAD: .WORD §$TRAP2 
3206 af 007532 007356 ‘ SSAVREG ;;CALL=SAVREG TRAP+12(104412) SAVE RO-RS ROUTINE 
3507 002 .IF_EQ STRP-1 
3208 “SBTTL TRAP TABLE 
3510 ;#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
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S0 EAP Phe. EY ag , SEG SC&7 


;*#BY THE “TRAP” INSTRUCTION. 


$rapa0: "WORD S$TRAP2 
s SRESREG ;;CALL=RESREG TRAP+13(104413) RESTORE RO-RS ROUTINE 


SEITE esos basta 


- BARE RRC N,M 

IF re SESCAPE . 

. SR RO,ES.SAV ;SAVE THE ADDRESS IN ’SESCAPE’ 
/ 3 N ;’M 

.ENDM ERRCAL 


-SBTTL SINGLE/DUAL PORT RH11/RPO4/S/’6 DRIVER (REV 1.0) 


BRETT Tal fd con. 


:AUTHOR(5): JIM LACEY/CHUCK HESS 


-IF B 
5 eee AAR E SALA L RASA RRR A RE ERE 


may" 

“LIST 

2 a: : eeeneagecegme eanmpeanpet amas nears rpms cf 
“ ENOR 

“LIST 

* ENOC 


;STORAGE FOR RPDS1, wae RPER2, AND RPER3 ON AN ERROR “e” 
s pre = RPDS) 
; RRS+e = RPERI] 
5 RRS+4 = R Re 
;RPERRS+6 = R 
RPERRS: .WORD 0O,0,0,0 
; TABLE OF DRIVE ACTIVE INDICATORS ‘DORVACT=8 BYTES) 
; DRVACT= F Vv’ k ' 
; DRVACT> F OR VE WITH @ COMMAND 
; DRVACT< F DRIV ACTIVE WITH AN ERROR RECOVERY OPERATION 
DRVACT: “BYTE 0 ;DRIVE O 
.BYT 0 ;ORIVE 1 


3 d2 


ZRICB.P1 


RAR 
eee 


N 
“N 


SRagCRTOREERSS 


SERrE Ton oO ORRDOR ERAN GRATER 


WD NOW FW O 


Srpttastsess 


w& 
oo” 
fotu 
vue 


RPO4/ 
1 
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MACY11 30(1046) O4-NOV-77 17:31 PAGE 68 
SINGLE/OUAL PORT RH11/RPO4/S/’6 DRIVER (REV 1.0) 


.BYT ;ORIV 
Bvt 5 5 } ’ 
-BYT 0 ;0R 4 
.BYT :OR s 
a: BAe 5 
.BYT 5 
; TABLE OF VE STATUS INDICATORS (DRVSTA=8 BYTES) 
; sf TA=0 IF Bri 1s SFELINE OR NONEXSITENT 
:DRVSTAO IF ORI 1S ONLINE 
:ORVSTA<O IF DRIVE IS UNSAFE 
DRVSTA: .BYTE O ; 0 
BYTE 0 i DRIVE 3 
- BYTE 0 i DRIVE 4 
‘BYTE 8 DRIVE 6 
‘BYT 0 :DRIVE 7 
-T TY (DRVTYP=8 BYTES) 
Jaana DRY YE=0 tae rit S NONEXISTENT (DRVSTA=0, ALSO) 
; VIve=i F VE IS RPOY 
sORVTYP=e IF 2 RPOS 
;DRVTYP=4 IF RPO6& 
;DRVTYP=-1 IF NOT RPO4/S/6 
VTYP: .BYT 5 8) 
onvve: ATE BENE 9 
.-BYT 0 ;OR 
‘BYT 0 :DRIVE 3 
.BYT 0 sR EVE uy 
BYT 0 :ORIVE S 
"BYT 0 DRIVE 8 
‘BYT 0 : DRIVE 
T PORT INITIALIZATION INDICATORS 
ae OTPPINT=D TE IN TIAL tgat iN is NOT ACTIVE ON THE DRIVE 
:ODPINT<O IF INITIALIZATION IS IN PROGRESS 
PINT: .BYT 0 ;ORIVE O 
- BYTE 0 DRIVE i 
.BYT 0 ;DRIVE 2 
RT (a) ;DRIVE 3 
YT 0 :ORIVE 4 
ae: BEN 
"BYT 0 ‘DRIVE ? 
; TABLE OF PENDING DUAL PORT REQUESTS 
: THAT A PORT REQUEST IS NOT PENDING FOR THAT ORIVE 
i DeRge<D if THAT A bAL PORT REQUEST IS PENDING FOR THAT DRIVE 
DPROS: .BYTE O ;ORIVE O 
‘BYTE 0 :ORIVE 1 


SEG O0EE 


ae 


CZRICBO RPO4/S” 6 HEAD ALNMT MACY 11 30( 1046) O4-NOV-77 17:31 AGE 69 
Pil O4-NOV-77 12:49 SINGLE/DUAL PORT RH11/RPO4/ ys IVER (REV 1.0) SEQ 0069 
007610 -BYT ;ORIVE 
007611 850 ‘BYTE iDRIVE 
o0761¢ 990 -BYT 0 :DRIVE 4 
bo7e1 B85 ‘BYE = IDRIVE : 
7615 000 ‘ BYT: 0 : DRIVE 


; TRANSFER_WAIT clas (TRNSWT=1 
a8 IS IS A_ONE WORD SUES IT WILL CONTAIN THE ADDRESS OF 
“DPB” OF THE I70 OPERATION. 
007616 900000 TRNSWT: “WORD 0 


; SEARCH TTaIS soe 8 One Fo ae WORD) 


Mububatatututatatabatataatatatutal at at at at stat ata ata 
Le rea er seemenananetcene ge 


Tie PERF on THAT WILL CONTAIN A KEY FOR EACH OF 
VES THAT NG A SEARCH COMMAND FOR THE 170 
REQUEST HAT IS AT T opnape THEIR REQUEST QUEUE. 
*EACH DRIVE IS ASSIGNE 5 OnE BIT, STARTING AT BITOO FOR DRIVE OC. 
007620 oo0000 SRCHWT: .WORD 0 
;RPO4/S/6 DRIVER ACTIVE FLAG (ACTORV=1 BYTE) 
sACTORV= IF DRIV R 1s NACTIVE 
SACTORV>O IF ORIVER IS ACTIVE 
007622 000 ACTORV: .BYTE 0 
; SOF TWARE al FteR. ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE) 
R=0 IF SOFT TIMER ROUTINE IS INACTIVE 
OCTeTRDO IF SOFTWARE TIMER ROUTINE IS ACTIVE 
007622 oco ACTSTR: .BYTE O 
;UNLOAD FLAG (ULDFLG=8 BYTES 
3658 TOE RTD Te apap COMM N PROGR 
3659 ; 878 1 UNE OAS EONNAND iN WAIT QUEUE 
3ee1 007624 000 ULDFLG: .BYTE O ;DRIVE O 
3662 007625 000 "BYTE O :ORIVE i 
3663 007626 *BYT 0 :ORIVE 2 
3664 007627 000 “BYT 0 :DRIVE 3 
3665 007630 ‘BYT 0 ; IVE 4 
ze Ben | oe Bre ‘BaLE 
3668 7632 000 BYTE 0 i DRIVE ? 
3650 ;LOOK AHEAD COUNT (LACNT=8_BYTES) 
3671 ;LACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED 
3673 007634 000 LACNT: .BYTE O :DRIVE O 
3674 007635 000 ‘BYTE 0 i DRIVE 1 
3675 007636 000 *BYT 0 ‘DRIVE 2 
3676 007637 000 "BYTE 0 :DRIVE 3 
3677 007640 000 ‘BYTE O !ORIVE 4 
3678 O07E41 006 ‘BYTE 9 ‘ORIVE S 
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SIN ROLE” DUAL PORT Rul RBOY Sree DRIVER (REV 1.0) 


TE 8 ‘DRIVE 7 
; SAVE neclsree sr tt $A Yee mudi HIIZRPOW/S/6 REGISTERS WHEN THE 


Ss CO 
;$A 1/RPO4/S/6 REGISTERS, AS PER 
TBpEei4), AFTER AN ERROR. 
SAVEFG: ‘WORD 0 
; SEEK ~~ EKFE=D WORD ) 


Tene THE orex me BOONE SS ISN’T IN THE WINDOW 
Dak ane EOS” MMAND 


iSEEKEGCO IF DATA Ta SFER ILL DO IMPLIED SEEKS, 
SEEKFG: .WORD O 


; TIMEOUT TABLE (TIMER=8 WORDS? 


;THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 
0 


TIMER: .WO a | ; 
» -1 ;0R 
. -1 ;DR 
Be ct RG 
“WORD =1 ‘RI S 
-WORD -1 i ORT S 
-1 ;ORI 


;DATA TRANSFER UNDERWAY i ald ES (DTUW=1 © aes 
{BTUWS#N (WHERE NeO 10'7) IMPLIES D 
TUW=4+N ( N=0 TO IMPLIES DATA TRANSFER UNDERWAY ON ORIVE N 


DTUW: -WORD -1 


; ATTENTION THe T TABLE 


(ATABIT=8 BYTES) 
LE CONT AInS THE CORRESPONDING BIT TO EACH DRIVES 
‘ATTENTION Bit 


ATABIT: .BYTE 1 ;ORIVE O 
-BYTE @ DRIVE 1 
BYTE 4 ;ORIVE 2 
BYT 1 SBR EVE 3 
.BYT 2 ;DRIVE 4 
BYTE 40 ;ORIVE S 
BYTE 100 i Bate 6 
BYTE 200 ;ORIVE 7 


;RPO47S/6 TO RH11 “MASSBUS CONTROL BUS PARITY ERRORS” (MCPE) ALLOWED BEFORE 
;CALLING IT FATAL (MCPEMX=1 WORD) 


MCPEMX: .WORD 3 
; STORAGE FOR RPADR (THE FIRST ADDRESS (776700) OF THE RH11/RPO4/’S-“6), 


SEG 0670 


Scie: 


3737 007704 
37 007706 


374e 007712 
3745S 007714 
3748 007716 


3751 007720 


2788 
3783 007722 i le 
2790 ~=OC77e4 C13746 


a oki ver (REV 1.0) 
AND RPVEC+2 (THE BR LEVEL (5)). 


macrLL BAB 


;RPVEC (THE VECTOR ADDRESS (254)), 


1 Nove 7 12:49 


000eS4 000240 
;MAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD) 


MXLACT: . uy 
;MAXIMUM DELTA DELAY IS 8 SECTORS (MXDLTA=1 WORD) 
LTA DELAY IS 2 SECTORS (MNDLTA=1 WORD) 


MNAX IML SEARCH on 1/0 WINDOW IS S SECTORS (MXWNDW=1 WORD) 
MXWNDW: .WORD 
;DEFINITIONS OF THE RH11/RPO4/S/’6 ADDRESS INDEXES 


I 


:NOTE: THE ’P’ OR '.* CLOCK MUST BE STARTED 


APINIT: SAVREG SAVE RO - RS 
MOY tSAVE THE PRESENT PROCESSOR STATUS 


SEG 0071 





CZ2RJCBO, 


RPO /S’6 HERD ALNMT 
O4-NOV-77 12:49 


CZRICB.P11 


sree neon 


So URES 


feDeDCaCdm eed EeDeo 60D 
BOIRA Powe 


Ww 
@ 
ce oe 5 
rm-O 


TSRRRORRES ORCS SE 


COO0O0OXN0000000 0000 000 00000000 
ROLNOTMRLSL 


se a a ee a be ne em be = ee ee 


OO0O00900000 


eee 


O1:0134 





042701 


of 
105761 


Booeaemes 
PEIERR 


oO 

REO 
OrW 
NWN 


‘Tae 


764 


177776 


MACY11 30(1046) O4-NOV-77 17:31 


177776 


PAGE 72 
SINGLE/DUAL PORT RH11/RPO4/S/6 ORIVER (REV 1.0) 
MOV 6<5#32.)>, 9aPS HANGE THE EQUEST 0 TOS 


mei eae Stee 


1$: CLR 


CMP R1,Re 
i | io Re A 
2s: MOV a-1, (R1)+ fies RESS 


CMP i DONE? 
erR° HOOP I { BRives TO OFFLINE 


CLR veTRe 

Vv C.R ;SETUP THE RH11/RPO4/S/6 VECTOR 
MOV sISR_ tR3)+ 
MOV +6 (R3) 

Vv RP 4 ;FIRST ADDRESS OF RH11/RPCY 


MOV #BITOS,RPCS2(R4)" -MASSBUS 


ss; $eR —b.oavanr i PROR TRE HRORAYE © 
BR 4g 


*DVA’ NOT SET OR PARITY ERROR 


2: eRe Bevsracnt ets STATUS TO OFFLINE 


BIC atC7,RI 3 T UNUSED BITS ai 
Royse i fot ‘ti BRTVE?, 
CLR aePs PROCESSOR STATUS 
6S: ane DPINT(R1) ithe ma th ee DRIVE TO SHITCH PORTS ? 
1 te re 
7$: t2h8 DBtNTCALD eI TCHED PORTS ? 
os Ber e ; 166. 10 ie RIVED” 
v (SP) +, a8PS RESTORE THE PROCESSOR STATUS 
RESREG tREST RO - 
RTS PC : BYE-BYE 


ce TER Re UEIRe PEEP RES TERESBPHNS RAIETA AWD TE 


IS ISSUE 
Vv 


I 
D 
iTRcoRE TMEY ARE ALL HEN MOL, DPR, DRY. ND VY ON THE TR Stare, 


CALL ;ORVSTA IS SET TO THE PROPER CONDITION. 


: MO #ORVNUM, R1 ;DRIVE NUMBER TO R1 

; MOV RPADR, RY :UNIBUS RODRESS OOF RH1L1/RPO4’S’6 (RPCS1) 
; JSR RO, ORVINT ;CALLED BY 

: RE TURNI + ERROR OfCURRED (PARITY) 

: RETURNe ‘NORMAL RETURN 

DRYINT: MOY RS,-(SP) ;SAVE RS 


SEG 0072 


ni 
wey 23 


SeeCrneER Peon naaD 


BRBGBES 
AZav- 


BePEPEPEPERLT LLL L LL RERE 


: 


D 
R 


MACYIT sO TNSLE DUAL aa ae (REV 1.0) SEG 0072 


~ 





l 
0101 CLR DRVSTA(R1) ; START TATUS AS OF 
O11 ae cLRB ot vive (RL } ieLBa THe BRIVE. Tee PE INDICA LINE. 
1 ise MOV steam SELECT” Uren 
0000 (R4) ; AR COMMAND (& SEIZE DRIVE) 
sisies ayia it i +15 RBASS CRY RY)’ NONE NONEXTST ve? 
i 174 Jsr P ® ser. IE ity ad nour ine T A “TRE” 
1 1S: CLRB vgTA (RL) i OFFLINE 
i 06 oo0000 B r SBIT11,RPCS1(RY) é a ; alg Sere 
iBele em Re, RD. RP Bh IF 8 ae TYPE REG. 
idee at nee 8s RROR_RETURN RESS 
1 1 MOV (SP)+,RS :PUT DRIVE TYPE 
He hace SOB oo EP EY TPR SRE TS neow 
1024 1431 BE 2 . : 
o1 des 270 024020 ried se4020, RS ; iT A PORT RPO4? 
1 0014, BEQ : EYES , 
010e5e 12 p00002 007566 MOVB #2,ORVTYP(R1)  ;SET BS ANOICATOR 
ised Borden CoO! I  ittons aa Gee vec. RPOS 
10266 2 024021 CMP #24021, RS : UAL PORT RPOS ”? 
Di +7 007566 Seo «6 «Sa onvrvpcri) : SET RPUE INDICATOR 
ie 2705 Bop oe 33 che s20bee RS SINGLE, Boat PO 
Hie ferape omoze eens iene ores * 
10316 12761 177777 007566 HOVE sal, DRVTYP(R1) jSET INDICATOR TO ‘OTHER’ 
1 121 2s: MOV fi21 -(SP) :00 A “READ-IN PRESET” 
Slee ye 12 JSR He, 1 Bp 
1 8S 
1034 010000 MOV #BITi2,-(SP) ;SET FMT22=1 
15396 01S0ie J Re RO WRT’ RP 
10354 6S 
10356 014636 Jor RO,RD.RP ;READ RPDS1 
1B3e5 
ae a Ce go 
1 007672 oO00016 MOVB oA aTapIT (RL), sRPAS CRS) CLEAR UBTTENTION BIT 
ibs 014636 jor FIND OUT WHY ATA=1 
1 
iesi8 an i da HE wore 
01 14 177777 007556 MOVB #-1,ORVSTA(R1) ;SET UNSAFE INDICATOR 
10422 BR g jEXIT 
010424 4$: COM RS ‘CHECK MOL DPR, ORY, AND vv 
010426 167077 BIC #tC<BIT12!B1TOS!BITO7!BITOe>, 





ss 
3 


seen 


sasgsaaaY 
WONOU £WUEYO 


SHIRES 


: 


SRRGReaU 


BB 
BB 


BR 


RPO4/S/6 HEAD ALNMT MACYL1 30( 1046) O4-NOV-77 17531 PAGE 74 
Pil D4-NOV-77 12:49 SINGLE/DUAL PORT RH11/RPO4/S/6 DRIVER (REV 1.0) SEG 0074 
910432 001903 BNE 6$ F MOL, DPR, ORY, OR VV IS CLEAR 
10434 112761 oo0000: cGo7S5S56 MOVB #1, DRVSTA(R1) Ae ott status TO ONLINE 
o! 4e 7 6S: TST (RO)+ HE ERROR RETURN 
1 i 7$: ASL R1 at INDEX TO ADDRESS WORDS 
104 2 : 003720 007650 NOV #2000. » TIMER(RI)' et T 2 SEC TIMER 
1 108 61 007576 COMB DPINT (RI) :SET PORT INITIALIZE INIDICATOR 
10464 20 TST 
104 12605 8S: MOV (SPs, ,RS ;RESTORE RS 
104 200 RTS *EXIT 
;REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 
> CALL 
: JSR RO, a#RPOY sCALL Le HE RPO4/S/6 DRIVER 
: PNTADR | i BDDRE S OF PO NTER DRIVES PARAMETER BLOCK 
: RETURN2 i es tere |e F REQUEST 15 Is Ut QUEUE OR THERE 
010472 013746 177776 RPOY: MOV aaPS,-(SP) HE C NG STATUS 
010476 013737 007710 177776 MOV RPvedse aaPs rete at BPN 576 INTERRUPTS 
bi ge04 112737 000001 007622 HOVE #1,ACTDRV ; eT eer! DRIVER” F 
bipetS Ar tobs Roy ° (20) Re CK PARAMETER BLOCK POINTER 
10516 000016 CLR 16(R2) FP ye STATUS/ERROR. INDICATOR 
ipes4 O13504 007704 Toye RRADAT AY ‘OAreuS eGbRESe. Pes] 
910530 105761 007556 TSTe BRVSTACRID ee ea TATUS 
010536 10876 007624 Pete ULDFLG<RI) eee eee N QUEUE? 
01 uy 105761 007576 oe INT(R1) ; RY NG veg 6 Thr THE DRIVE 
10550 104, BNE ; 
ipeee 010134 SR , DRVINT Intye S THe DRIVE 
i 0 bo3ans 007556 TSTB DRVSTA(R1) RIVE STATUS ONL INE? 
10566 e761 007606 1S: rye @S(R1) T rn ING PORT REQUEST FOR THE DRIVE ” 
Bt 74 010164 000010 mov 1,RPCS2(R4) Lect "coe 
ai 015760 JSR RO; DRVQUE PUT ef Foe abest IN QUEUE 
10606 hee? 000103 oo00002 cnPB 8103, 2(Re) :1S Tits. REQ. + coR AN UNLOAD? 
{Bele 1 1 177777 007624 MOV! Bd AULDELGCRL ) Ser THe T UNLOAD IN QUEUE” FLAG 
i : as 007546 2s: TST DRVACT(RI) iS THIS RIVE ACTIVE? 
1 73 010764 Ish C, OPT CALL THE OPTIMIZER 
O1Ges6 i 7ee 120000 OD001E 35: nov SBITIS!BIT13, 16(R2) 4SET THE “UNLOAD IN QUEUE” ERROR FLAG 
0106 737 012074 4S: JSR PC,CI7 :GO HANDLE THE PARITY ERROR 
010654 00043) BR 8$ 


CZRICBO 
CZRICB.P1 


39593 


SSCL Cocer ET ETERERL] Ui ccis cs SEER RRRR tats ta 


OOOOOOOOOOOOOOOOO0O000000000 
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sReeNioe 


ee eb be bb ob be be be he ee 
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SESRER ING 
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BYS8ar3 
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bh 


97ers 
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015316 
007SS6 
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177776 
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MACYI1 SOINGLE/DUAL PORT RH1L-RPO4/SE DRIVER (REV 1.0) 
Ss: RO, DRVQUE ;PUT REQUEST IN QUEUE 
Be #81 TO6, (RY) } ccc yhirEApy 7 
S ,SET. IE r NTERRUPT age 
6S: STB VSTACRI) iSEE IF OR SEFC ING OR UNSAFE 
OE ae et label 
NE 


000016 
000016 


007620 


ooocc0 
000012 


000016 


000016 


ooc00e 






B Ss ; 
MOV gETTiStOr vel, 66 Areca! ORIVE NONEXISTENT 


BR 

7$: MOV sBITIS!BITIle2, 16¢ :DRI Is pare 

8$: RESREG ; T ce - 
TST (RO)+ : OR NORMAL RETURN 
BR 10$ jFINISH UP, THEN EXIT 

9$ RESREG iR Fated ne TURN 

10s TST (RO) + iC ave e ony ADDRESS 
CLRB © ACTORV AR ACT VER” FLAG 
MOV (SP)+,a"PS URN “pS T 0 USER LEVEL 
RTS RO Tin TO CALLE 


;OPTIMIZER-CALLED FOR A paar ceaan DRIVE 
> CALL 

: MOV #DR RI 
: JSR PC, OP 


bpt:  SAVREG 


ORT Ayes TO Rl 


= (SP : OVE oc RTATUS aac 
pe ee och HER OL aa 
a4 aBrT11 RPCSI(RY)) is bya SET? 
if 1 : ; BRANCH Noy 





I T6, RPDS1(RY) sy , FIs 
Qs: J , ORVINT : STILL 7 OME INE ? 
Fe Bh na: 1 Prono 
10S: STB STACRI) : I 
GT 18 cop s a 
SR ST FROM QUEUE 
MOV serine TAM, Lech STATUS/ERROR INDICATOR 
TSTB v oR VE ? 
BPL O EXIT IF NOT 
nov : ITIS!BIT12, seal ) is T NSAFE STATUS/ERROR INDICATOR 
1S: HOV #111, =(SP) ‘LOAD COMMAND | ONTO THE STACK 
RPCS1 Se iRecistER INCREMENT 
g ; T DRESS 
IT #BITI1, (RY *DRIVE AVAILABLE ? 
> 


oy 
w 

She 
m 

i 
w 
pet 
wn 
o 
®D 
mw 
“N 
Oo 
ey 


CMPB #150,2(Re) 


SEQ 0075 


EER ICRC, weted AOe HEA 


soir ES ope 
Se Rie Bee 
uoed Olitae 
1 O11) 
4 tl 
uose Brit 2 
Se He Be 
“os? tii 3 
a HR ae 
lidae 618; 
eo fi 
BR Bi 
woe Lt ai4 
Sige 
B fies fae 
Nose Giisus apoza? 
4041 
Hove 
4o4 
4o44 
4O4S 
4O4E 
4048 
4045 
upee 
4053 O112¥4 
= ii5eq 
il 
11 
a 
Hobe Ott 
ii 
“oe4 1131 
Woes Bt Tate 
4Obe 11314 
es 01132 
Noes Bit 
4070 011326 


ALNMT 
12:49 
011460 
007670 
007646 
012430 


011244 
011352 
177777 


023420 


86100 
173778 





MACY IL 30 tNBLE DUAL 


2s: on 
ost 


007606 SS: 


007650 


’ 
: a6 S THE PARITY ERROR 
$$: 3s % t¥de, cra if F "IE’ ALREADY SET 
SET.I ;SET “IE” WITHOUT A “TRE” 
8s MOV x (SP Se EPS Reet PROC. STATUS 
Re” Pc 
;COMMAND INITIATOR 
g CALL MOV sDRVNUM, R1 
: MOV abP ieee 
; JSR prey gin, a BOR C14 
; ae, ARCH Re D BY DATA XFER 
; Ef GERD DATA QUESTED 
PC, P: T FROM “DRIVES alt” QUEUE 
ee ee eh 
MOV R ee 
nov Ri e2cR4) H 
Apo ’R : COUNT 
es RY : 
MOV (R3)+, (R4)+ L T 
MOV (R3)+,(R4)+ eb Ss 
MOV (R3)+)-(SP) ; CT RACK 
JSR RO, WRT. RP ic CURITE) ROUTINE 
RPDA ; x GISTER TO LOAD 
CI? ;ERR T ss 
MOV (R3)+ ~(sP) *LORD CYLINDER RESS 
JSR RO, WRT.R 
en 
MOV 2(R2),-(SP) ;LOAD “COMMAND+GO", “A178Al6", AND “PSEL” 


NOV-77 
PORT RH11/ 


Be, cry 


UW 
4$ 
SEEKFG 


RO,LA 
8 


4 
PC,CIl 
c,cI3 


i tect 


Poon. ,TIMERCRS) START PoNgee tIRER 


7$ 


1 bby Sect lana. (REV 1.0) 
Poe INITIATOR 
oe i 


} aoe 0 LOOK AD 

;RET HE’ A PARITY ERROR 
;G0 START A SEARCH 
;START A DATA TRANSFER 


AE et ales nar 


SEG 0076 


CZRJCBO, RPOY 
CZRJCB. 


CB.Pil 


4071 


é 
zon 


see REBSSSS 


saaeaees 


DOOCOOOOOOOOOOOOOOOOOOOOCOOND OOOO 0O0O00000000 


P+ 7. + 
eres were 
ne be Be Be ee an be ae ee Pee fn ae Pe Pe Pee Pe Pee pb Phe be Pe he 


BEVRRIGN-S 


SESLESSLLELSISSESELSELSLELLES 
ee ee be ae te Be be ee Be be fe pe be ee 


RLU DOV FOO 


OOQOOCOO000000000 


bb be be Bh fo Fo hs be be pee 


PP ae 


a me b= b= he ae bmn be be Bn be Fn bs Pe me Pe Pe Pe Pe Fe Paw Pee Pan Fe 2 Pe Pe Gane Pe Pepe Pe Be 


Oh pe 


REE IN TOO 


SRR INEM ERSRE 


SteRas ESoRe ES 
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45/6 HEAD ALNMT 
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MACY11 0 


1S: 


es: 


4S: 


CI4: 


6) O4-NOV-77 17:31 PAGE 77 
E/DUAL PORT RH11/RPO4/S/6 DRIVER (REV 1.0) 
JSR RO, WRT. RP 
RPCS1 
Hoy Rt TUM ;SET “DATA TRANSFER UNDERWAY” 
MOV RPADR, RY ;RPC ADORE Ss 
Rov aes iSELEGT CYLINDER ADDRESS 
ah ~ 
Suse hrsnOu A SBACKUP BY MAX. SEORCH FOR 1/0 WINDOW 
ASD R ate) ; COMBINE THE AOJUSTED SECTOR WITH 
ca AA‘ GAT: ASS? TOR DOBPEPEPD BBE, s sector 
ae 8131-5) ;START A SEARCH 
$1 spots 
sit ATABIT(R1), SRCHMT ;SET “SEARCH WAIT” KEY 
MOV RPADR RY ;RPC ss 
nove Bt abn CpecRY) Seer PRE uesren COMMAND 
CMPB #131,R3 318 ina SEARCH COMMAND? 
cf “i (Re), = (SP) + OAD DE TRED TRACK & SECTOR 
a ns hake ee 
Rov Benz), ; LOAD Des iReD CYLINDER 
i5e regi | & 
C1? a 
ches 8115,R3 18 IT aN “OFFSET” COMMAND? 
pee AOARO-RPFEEAMBon SOAAE YEUGRAEE® "POF 
nee ASRan‘Re? REESE ABOPITC THE 
C1? 
BRPB #1573 iS ita “necaL Yona? “COMMAND? 
CnPB $117,R3 ;IS IT A RETURN TO CENTER? 


SEG 0077 


EZR ICBO, RPON Ee HEAD ALR, §«— MACYAL St NCLE DUAL Nt Ruit ZRPOM/S 7G DRIVER (REV 1.0) SEQ 0078 


coo noe 


1 ef 1 007546 ROV TCRI) 
Hgcel gonooy ig BeROET 
1 1 007624 olay Ras =< ta R1) 
015012 JSR » WRT. RP 
CI 
4 


He ia ety “URLOAD” COMMAND? 


rahe che obi 
HT PROGRESS, FLAG 
ART TH COMMAND 


oro" 
8n8 
at 


oo 


RPPRER 
S 
BO208 







Ht ll 

41 11 

41 il 

41 ll 

41 il 

ie 

ue Bit 

4] il 

41 ll RT PC T 

ie Lie 000143 SS: C #143, R3 iTS ut } Pie rset F FORMAT” COMMAND? 
isi 118% 014636 JSR RO, RO. RP READ OFFSET REGISTER 

414, 11 1 CI? 

4143 011674 11 1 oo0001 MOVB 1(R2),1(SP) -COMBINE “FMT22","ECI” “HCI” 
sive ae is0le JSR RO, WRT. RP ; one be “ECE ANE OR "HCI", 
4146 1171 C17 

414 1171 12s 

414g Ae 4 6S: CMPB #141,R3 ;IS ITA “Ger REGISTER” COMMAND? 
iso 117, 7S: A 6(R2),R3 iB SHOT iBe 0 1ST RODRESS . OF WHERE 
4152 11726 011744 MOVB 10¢ ), 9s iT NI IT. TEER. Fue FIRST REG. 
ates Btioao gs Mone ROS REAP : BERD Se Ze/e t Betistee™ 

4155 Bt Pag Ss: RPesi 

41 il CI? 

utes 11388 v (SP)+, (R3)+ ont THE CONT NTENTS OF , RH11/RPO4/S/6 REG. 
4158 O11 CMP 95, RS ;LAST Ge 

4159 O11 BEG ies i GE wes 

ater it new BR as’ ; DOE -- READ thee 

dibe it 10S: cups ae RB rs IT iP etch DRIVE” COMMAND? 
ui68 i 11S: HOV cee ;LOAD Hue COMMAND 

4166 1 RPCS1 

416 1 CI? 

di6e i 12S: JSR PC POPQUE >) MOVE RE . FROM QUELE 

4170 : eoasss rst SAVE SAVE I . HII ME ORPOM/S/6 REGISTERS? 
12 1603 SR C, SVRH11 i Rane YES NC eo SAVE THE REGISTERS 

4173 1203 138: RTS PC URN TO USE 

4i7e 1eoue 007650 HOY #1000. , TIMER(R1) ;SET A ONE SECOND TIMER 
41 1e0SC 007546 MOVE  #1,DRVACT(R1)  ;SET THE DRIVE ACTIVE 

4178 12056 RTS Be’ BET N TO iE U A 

41 1206 Cle: MOV R3. aiSP 2 $L THE COMFAND. 

LiB0 Bists Recs." 

wiBe l C17 
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BIRRLORAEBBIERIS BB 


dl aeudlapel ape adler coed andl opel cued ceed aol aan anoint ae 


SEESRRE ERE ES 


SESSILIS ESILSSSESESESE SL ELELSESLESSLELELL ES 
Pyro enereneraranets 


rurvrurururoruroru 
DD NOU £ WH 


Opt BMeNO oiner" es A ye oat ete UR PORT RHI L-REOY/S-E DRIVER (REV 1.0) SEG 9079 








l 
1 c § 
1 000010 CI?: IT TT12,RPCS2(RM) jORIVE N NON-EXISTENT ? 
1S: 7, ert han IN QUEUE ? 
0000! Mi 'BITI1, 1ecAes ERROR INDICATOR 
i pi oR Tee ; b eave TEE att RH TL RPOUe Te REGISTERS 
: CI7B: nov Ai a(S) : " IVE CLEAR” 
: ie 
PC, EMPTYG -EMPTY THE QUE 
i cLRB a LG(RL} if AR BR TH ae IN QUEUE FLAG 
i CMP , TUM F YHre DR HAD AN 1/0 REQUEST 
1 BNE we A PROeRES VELEAR ALL OF THE FLAGS 
007670 . HOV 8-1, OTUW 
cle: VREG ;SAVE RO - RS 
i 000010 Baty #BIT12,RPCS2(R4)’ ;IS *NED’ SET ? 
\ BNE § BR F YES 
Se MA Diese UE carer areae 
1 ; BEQ 2 BR ANEH TE NO_ é 
1 MOV RNSHT GET THe “T ER WAIT” QUEUE 
i ero R1,DTUW D TH $-ORI HAVE AN 1/0 IN PROGRESS? 
T GET INTER 
2s: 13) tienes "Entry FOR DRIVE ? 
i 000010 BE s81T12, RPcs2(R4)' N D’ SET ” 
i c00016 nov eBITIS!BITO1, 16ch i SET *DRIVE NON-EXISTENT’ INDICATOR 
i 000016 3S: nov IT1 TIS!BIT1O, 16( ie. 2 L CLEARABL BLE PARITY” ERROR INDICATOR 
1 007650 4S: MOV re ALEMERCRS) i a ca 
R “ TO IDLE 
che prow Bs be UP FOR A TRANSFER 
if T NOICATOR 
1Saee os CCR TRN pr i pnoic RANSFER QUEUE 
1 SS: CLRB ULOFLG(R1) if AR UNLOAD , FLAG 
i 35 000010 BIT agitie,RPCS2CRY) "NED" 
i sit Ri . iA IF TO vee NEXT DRIVE 
1 BIC #1¢7,R1 
i BNE 1S ;BRANCH IF ePRIVES 
1 007670 MOV 8-1, 0TUW ?NO DATA TRAN RWAY 
iB ees SLERR att or pe al oldie 
12374 000010 MOV apt Tos, OE sory)’ 56 A MAS Esbus t 
12402 BR ; CONTINUE 


OOCOOOOOOOOOOOOOOO000000: 
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RPO4/S’6 HEAD ALNMT 


O4-NOV-77 12:49 


teers 
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use 


7566 
015316 


£50001 


007704 
007670 


MACY11 30(1 
SINGLE” 


007712 


177776 


007622 


O4-NOV-77 
6S: den a 

L ACR? 
7$: oe ee 


;LOOK AHEAD ROUTINE 


>CALL 
3 iv Hey» RA 
8 Vv ry 
; JSR ire, 
; RETURN 
: T 
5 T 
LA: Roy Ry Rp esecRY) 
isk RA’ RD RP 
cc 
44 
CMP (SP)+, 12(R2) 
PNEB « CACNT(R1? 
ANP ACNT(R1),MXLACT 
BGT $ 
MOVB 10(Re), R3 
aR’ 
ASR 
MOV Fg aePs 
JSR 
RPLA 
4§ 
Ber )+,R3 
BFP BGs,» RS 
1S: CMP MXDLTA,R3 
BLT 
CMP MNOL TA, R3 
zs: fife Phewrem 
3S: TST (R 3 
4g FER rd C17 
Ss: RTS RO’ 
; INTERRUPT SERVICE ROUTINE 
ISR: MOVB #1, ACTORV 
SAVREG 
MOV RPADR, RY 
MOV DTUW, RI 


DUAL PORT La ebb Ele (REV 1.0) 


(oe 
Ero all 


$ R 
BOT To RES cou 

RET 

A SEARCH 
START A DATA TRANSFER 
erecr pay ADDRESS 

NF CYLINDER 

AO fl creams 
x] NT THE LOOK AHEAD COUNT 
BRANCH aay CTOR ADRESS AND 
POST Bt aB ac ete etr 
{READ LOOK AMEAD REGISTER 


;CALCULATE THE DELTA 
;MAKE THE DELTA POSITIVE 


ee Tea eee 
NOOWE-TF YES, ZERO 

tae beth tot 

ADJUST THE RETURN ADDRESS 

PROCESS THE ERROR 

RETURN 


weweereres sewer ce 


sSeT “ACTIVE ORIVER” FLAG 


i ROORESS 0 OF _RHSCS1 
:GET “DATA TRANSFER UNDERWAY” INDICATOR 


SEG 0080 


CZRJCBO, RPOY/’S/’& HEAD ALNM 
O4-NOV-77 le: 49 


: 


7 
1 aig 


CZRICB.P11 
4 126 
: iset6 
4 12614 
4298 O01 
4 l 
4 1 
1 


WWWWWLIWWIW 
bme Pe me ne me fs fe fees ae ene 
WON UI £ LTO 


§ 


ONONOOOOOO00000000 


ee ee ee 


Re 


HUmDBUBwowUwoOm~ 


suneea see 


SRE 
SRE 


ruoru 





012632 
012772 
007622 


MACY11 30( 1046) 81 
SINGLE/DUAL PORT RH11/RPO4/S/6 DRIVER (REV 1.0) 


007670 
0076S0 


O0000i6 


000016 


TUR 
Rw 


DO? 


O4-NOV-77 17:31 PAGE 


ot 1$ 
PC, TD 

a $’ 
c,sc 


ctRB ACTORV 


; TRANSFER DONE ROUTINE 


TO: 


.IF NB 
; FORCED 
WC: 


1$: 


a DRVACT(R1) 
#-1,O0TUW 


v 
ASL Ri 

MOV 8-1, TIMER(R1) 
ASR R 

MOV T T,R2 
so TENE ecm 
MOV pr epcéee Rad 
RPCS1 

CI? 

ROL (SP)+ 

BMI 3 

TST SAVEFG 
BPL 1 

ISR PC, SVRH11 
JSR PC,WC 
ISR PC’ GETREO 

TST R 

ee OCB 

SR C,OPT 


JSR PC, OPT 


BR sc 
MOV #113, (R4) 


MOV worl Hh 
MOV (R4) 

BR H ae 

WRITE CHECK ROUTINE 
TST AUTOCK 

BEQ 2 

CMPB ‘ , SCODE (R2) 
CMPB #3, SCODE(R2) 
BNE 2 

ISR RO, ORVQUE 


Cat Y IF _NO DATA TRANSFER UNDERWAY 
, Nren DONE 


RO = peerenn 
ie To fs IVE RBRIVER™ FLAG 


+ AE OTA TRANSECRS UNDERWAY TO IDLE 


;CANCEL TIMEOUT 


;GET “DPB” ADDRESS FROM THE 
s Toewer oe WAIT QUEUE--CLEAR QUEUE 


Se ECT THE DRIVE 
RANSFER ERROR( TRE=1)? 


;BR IF_YES 
; SAVE M RH11/RPO4/S/6 REGISTERS? 


tYES--SAVE THE REGISTERS 

:SEE JE WRITE CHECK TO BE PUT IN QUEUE 
OPE POINTER 

rEnTaY QR ORIVE ? 

BALL OPTIMIZER 

CALL OPTIMIZER 


SR A 


IS pelt ister TOs, 16(Re) 4SeT Me 
Bx ce TYQ te THe =D “DRI 


’S WATT QUEUE 
AVE THe Dai vere pA he REGISTERS 


:t2ale 2 
SS ° REL Se 10 6 SHE ORIVE 
CHECK F OR OTHER ORIVES 


‘BR SF NOT WRITE CHECKS ” 

: as sP co WRITE DATA ? 

;LAS 5 all WRITE HEADER & DATA ? 
{PUT THE OPERATION IN THE QUEUE 


SEG 0081 


CZRICBO, RPOY’S”6 HEAD ALNMT MACY11 30(104 NOV-77 17: PAGE 
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ages ere He Be +B Neg TIN 

4353 MOVB cathy peeves y pSave ITE OPERATION CODE 
4254 MOV ae CYLINDER 

4355 Hoy ce VE RECTOR AND TRACK ADDRESSES 
ages B &B eae) CHANGE DRIVER Cope $6 WRITE CHECK 
4358 Bise ties me (R 3} EON SH CHANGING CODE TO WRITE CHECK 
4359 2s: RTS tEXIT 

4361 000 . ENDC 

d3be ;SPECIAL CONDITION ROUTINE 

4364 012772 116403 oOO00016 Sc: MOVB RPAS(R4Y),R3 ;READ wRPA as” 

4365 a ? 101 BNE 2s :BRANCH IF ANY ’ATA’ BITS SET 

4366 O1 037 014636 SR RO,RD.RP READS CONTROL AND STATUS REGISTER 
4367 013004 RPCS1 

4368 013006 012174 CIs 

4369 913019 106126 ROLB (SP)+ 31S “IE"=1? 

4370 013012 100403 BMI 15 *YES, NO BRIVES TO CHECK 

4371 001 .IF DF SESCAPE 

437¢ aati JSR RO,ES.SAV ;SAVE THE ADORESS IN 'SESCAPE’ 
4374 013014 p4bor : ERROR b : REPORT AN ILLEGAL INTERRUPT 

4378 013016 004737 015316 - Z R C,SET.IE T INTERRUPT ENABLE 

4377 1306 2g CLR -(SP) TUN ALL DRIVES THAT HAVE 

437) 130ee 11031 MOVB Ra, (SP) :AN “ATA™=1 

4300 51 3p34 ONSObi pan CR ae 

4381 9130 930316 sc3 Bir R3, (SP) ;ATA=1? 

4 1 i cs YES--BRANCH 

4383 013042 01 SC4: INC Ri !MOVE TO THE NEXT DRIVE 

438S O01 3 BNE Sc3 :8 Bren OFF § MORE TO CHECK? 

4 : ? Ts i P)+ :¢ FT asTAck 

4388 013054 10576 7 : T INT(RI) iI ALT ING THE DRIVE ? 

4389 913069 14 , es an Bear 3 ut NO 

4390 01 1 013750 IMP 5613 Ess THE DR 

4331 13066 ora8s 007606 1S: TsTe DPRAS(RI) le E QUE T OUTSTANDING ? 

439 a1 913760 IMP 5613 TART T ae ING COMMAND 
4394 OL 199 i 1 2s: TsTB DRVSTACRI) 

GaSe 013106 105761 007624 TSTB ULDFLG(R1) OAD i Be N PROGRESS? 

4397 013112 34 BL : H IF NOT 

4398 013114 7 16034 IS PC, GETREQ :GET Ope POINTE 

4399 13180 0047 7 15200 JSR PC'SVRH11 ;SAVE T RHI 12 ZRPON/S/6 REGISTERS 
4400 013] 7 13 JSR PC’Sci2 : Ree PER2 AND RPER3 
4401 ; ALSO DO taeive™ fart (ORVIN 

ade 013130 105764 007556 TSTB DRVSTA(R1) DT ORI VE COME ONL 

44 01 138 416 BLE $ *NO--- 

4404 0131 032737 O40000 007536 I #BITIY,RPERRS WAS THERE AN ERROR? 

4405 013144 001002 BNE :BR IF ERROR 

4406 013146 000137 013610 IMP §C11 :NO ERRO 
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4407 013152 013705 007540 3S: MOV RPERRS+2,RS sYES -- PICKUP REERI AND 
4408 O1 156 600% R SCEA :66 PROCE ° THE ERROR 
440$ 9013160 7 1 007546 Ss: STB RVACT(R1) IVE Tive WITH COMMAND OR ERROR RECOVERY 7” 
4410 013168 1 NE cé ; 
nates 131 013700 ¢,sci2 : of RPERL, RPER2, AND RPER2 
4413 01317 1 007576 6$: TSTB INT(R1) : TRY 18 SeyEMt Hit 
4414 QO] 136 opi se! BNE ord ;BR_IF HECK Ck BNR MORE. D DRIVES 
wuts : 1 3 007556 rstB VSTA(RI) 3 CHE a" *S STATUS 
441 1 03 4 o20000 607544 BI 8 IT13, RPERRS+6 : CHANGED ? 
wis i ie ere 000113 F OV 13,-(SP) Re é -*: 
4420 135 o%037 preoLe JSR #13, 7 Rp ; uy pF TCOARAND INTO RPCS1 
4421 0132 RPCS1 : RE EG! TER I 
4422 O13e 013560 Sc8 :PARITY Bok ADORESS 
4423 013232 O11 7$: MOV (SP),RS ‘PICKUP (RPAS) BEFORE THE ERROR CALL 
4424 i .IF DF SESCAPE 
4405 JSR RO,ES.SAV ;SAVE THE ADDRESS IN ’SESCAPE’ 
4426 000 .ENDC 
4427 013234 104002 ERROR g ; REPORT THE oWNEXPECTED D, ATTENTION 
4ueg 013236 000701 c4 :GO CHECK 
4429 01324 : 
4430 001 .IF DF SESCAPE 
ai3t on ISR RO,ES. SAV ;SAVE THE ADORESS IN ’SESCAPE’ 
4433 013240 LowBos E ERROR 5 aves PLUG CHANGE 
4434 0132°42 0006 BR Sc4 ae "eo ee 
4435 Ol 006301 Sco: ASL ai Ss 
4436 013246 012761 177777 007650 MOV #-1, TIMER(R1) pie 
4437 013254 OL ASR R1 TIE VE ADDRESS 
439 01 0164 08019 Wy ORI RPCSB ERY) isitec cf Ries — 
. ( 
4440 O1 3 THe3e JSR Ra’ RD RP BEoT AppY’S STATUS REG. 
4441 O1 12 RPDS1 
wae 01 1 sce 
444 1 il MOV (SP),RS ;AND PUT IT_IN RS 
O1 1 ROL (5P)4 WAS rue RE AN ERROR? 
4445 O1 1 BNI is BR IF 
4446 013304 7e1 007546 STB VACT(RL) ‘Chet K RIVE” $ $18 
4447 01331 BGT SCit BR If ORI TIVE ITH ORDER 
wast O1 1 *5 100210 oo0016 Bis a8] isterto7!erTbs 16 (Re) ;INFORM USER OF ERROR RECOVER COMPLETION 
4450 O01 014636 1S: ISR RO, RD. RP ;READ ERROR REGISTER #1 
32 01 Bog0 14 RPERI 
4453 O1 13008 MOV (SP)+,RS ;AND SAVE IT_IN RS 
4454 O1 7 15200 JSR PC, SVRH11 : SAVE RHI 17RPO4/5 76 REGISTERS 
4455 O1 E746 O11 MOV will 7( SP) :ISSUE A ORIVE CLEAR 
4HSB 1 037 01501 SR RO, WRT. RP 
4457 013 909000 RPCS1 
4458 013 1 sce 
4H59 O1 4 10s ScéA: ROL RS ; WAS 5 CUNSAFE® CONDITION =17 
4460 O01 1 BMI 1 ? BRAN 
4461 013360 O005702 TST Re ‘ANYTHING IN BueuE ? 
4462 013362 001447 BEG SC? :BR IF NOT 









SEG 9064 
Ev 1.0) ERROR 
4 geagiere pL re On vER ; INFORM USER OF 
10 mn ; 
meres SSTNGLE DUAL. POR #BIT1S!B1T07!B1T0S, 16 DRIVE STATUS REG. #1 
CZRICBO, RPOW/S~& HEAD ALT. re BIS as ; READ 
CZRICB.P11 100240 000 on , 1 IN RS 
1339 36 E CLE 
aes pire aa nov (2p)3"> 1BR TF NO--UNSAE STERS R 
es 013374 RO ;DRIVE I gaa ° REF UNSAFE ERRO 
W468 OL Ber tiéds L,DRVSTACRI) —:ORIV WH Fone BOER oF 
1 i 
ee i 77777 007556 ioe o Si Fieratrie, 1eck2) nae 
W472 D134 110000 000016 iT SGIT12,RS Rte "Ble RECOVER 
oS Ot ave “ SONLI 
4473 { 010000 . Rov ; E toBRARataaD START 30 SECOND TIMER si 
4 ” , - 
wave tiezel banana: Bovece BSL ‘meee ; INFORM USER OF E 
4 ’ 
os ie Aie7el 007650 ASR TO7!BITO4,16(R2) “ 
wae 1ie8 1 072460 ite agiT1s! gr [an Dens OR QUEU 
i $: YQ 
G4Be Ot a 26 00016 str: SgRe CApre ES. ; cae Net OAD F N BIT 
44 i 74 a8 TST Ue 9 ‘Be UNL. BTTENTIO 
aed Ol ae eCRe Bree were ti rhe Brive 
wee BLSEie ; MOV: DRVETACRL) a INTO RPCS1 
44 bises8 | Pee0es DOse%2 OOODIE 1S: Ts 13,2(36) KE ORMAND 
ae tag Wee HAS Bit ane es 
4 1 13 CS1 iC £7 
4491 : 90g113 Sc5 at HYS_ORIVE Dc 
1433 Heo 2s: if BRVACT(Ri) CED THE PARITY ERROR pl 
94 (Ol 2 Sce: S cetrEO ‘ S LE PARI 
1 1) Cee 1 tele 
SE ns fone EE fh beds 
4499 135e6 737 1$ MP OT OFLGCRI) : HI FLAG 
1 ULDF : FOR 
i nee i gis Sei: ee PACT RG) jst pate a SEA ARCH OPERATION 
< 3 TC ; : 
on Heat Le 007624 1$: a RTABIT(RI, SRCHM ANCH TF. ¥ 21 FROM QUEUE 
1 T : ; 
4505 1 007546 ce i BNC aa Sade . 
ao ike 1) BS. Sa oe Rie ws eet a 
uecg BIS SAVEFG’ ; BRANCH ries ON BIT 
¢ W955 1 Ole TST 35 : YES- jecene aT TENTI 
19 Bizess 04 806268 000 BPL 5 CRY) CL 
i A ) ,RPAS t AR IVES 
4512 fies 737 007644 JSR acer ereRY Bae aS on 
a BEG TRE BAPE coon a e 
4515 1 16164 
4E17 Ot 74 ie 1 30M2 
4518 0136 


SBRIER HPV ESAS Ae 

3 glare ey a 

i 1371 16437 14 
4See O137e6 164 0 
4Se3 O01 16437 e 
uese : 734 7 010134 
‘ me Bes 
4Se 13744 

1 7 

wear i 1 cat 177777 
ieee 01372 Pies 900010 
=o ties foe 
i239 B14ooe 301 
ue 014004 012761 023420 
4540 014012 00620 
4541 B1aB18 06433 
454e Hi 4 1 1 007576 
doug ol Tosdes 7576 
Ss Se bey sats 
ee Bites hascte oo7=5 
4S49 Bi ieee A 
4550 Ql {348 
4551 0140S0 0047 016034 
4S 140S4 40000 
Sel Sis Bre floras 
4554 14 7 1 
se tien fee. 
eee Gites Kees) serene 
4558 014104 000137 013042 
on 
i 
i 
4S64 
4560 ott te ft 007622 
426? Bi4iie 112939 o0o00co1 
4566 Cl4le4¥ 104412 

g Bilis el 
maa 141 7 : 007650 
ah Be Bisces 
4573 014140 166663 000002 
4574 014146 003003 


MACYAT SOtNGLE/DUAL PORT ToD ha (REV 1.0) 


007650 


000016 


007650 


000016 


007623 


007650 


SCle: 


1$: 
SC13: 


es: 
3$: 


nov 
MOV 


;RPO4/’S/6 TIMER 
CALL 


TSR 


RST den 


(RY), RP ae 
Re (R4)} RPERRS+4 


g SLES! OR Vv 
SAVE THE FOUR pT A THAT 
;WILL TELL US SOMETHING 


RPER CRY), RPERRS+ 

RO, ORVINT ur. THE STATE OF THE DRIVE 
b3 AKE ines EX! 

ca i FE. OFF OF I, STOCK, 

Ri SetuP To" ABORESS loRDS 

#-1, TIMER(R1) 

Ri 

R LECT T 


RTARITCAL) hens Ai 1 The ATTENTION BIT 
#8 ’ 


is ‘oR IF AVAILABLE 
#10000.,TIMER(R1) ;START 10 SEC TIMER AGAIN 
R 
3 sExtT 
INT(RL) : NITIALI ING THE DRIVE ? 
INT(R1) > CLE THE NIT INDICATOR 
RO, ORVINT :GO INIT DRIVE 
: PARITY ERROR RETURN 
DRVSTACR1) : IVE NE 7 
2s :BR_IF YES -- START ORDER 
; JE ENTRY FOR THE DRIVE 
Be ce GET DPB ADORESS 
atti eiet tBTTI4, 16( ; NEORH R THAT ORIVE OFFLINE 
e ave. The RECOuEST 
PC; MPTYO :EMPTY THE T QUEUE 
(R1) T ST INDICATOR 
COR oC cee 
t PROCESS R DRIVES 


ROUTINE 


eTIME,.-(SP) sELASPED TIME IN MIL ONDS ON THE STACK 
Pe RB TMA tEAE BB eee TOME tana 
ACTORV ;CHECK “ACTORV & ACTSTR” 
; IF NON Fie EXIT 
#1,ACTSTR Ber “acts TR" 
Rl orn T WITH RBRIVE ts) 
TIMER(R3) 


ES ONCH I T ae RUNNING? 


; COUNT THE INT ER 


2(SP), TIMER(R3) VAL 
2 !BR IF NO SOFTWARE TIMEOUT 


SEG 0085 


07 


CZRICBO RPON/ 5/6 HEAD ALNMT MACY11 30(1046) O4-NOV-77 17:34, PAGE Bt 
CZRICB. P11 7 12:49 SINGLE/DUAL PORT RH11/RPO4/S’6 DRIVER (REV 1.0) SEG cOSE 
4575 014150 004737 014202 JSR PC,STO L SOFTWARE TIMEOUT ROUTINE 
45 O14i54 3$ or Fo THE EXIT 
a2 tat 533 oe 1o¢ Rhos = 2 es 
qes8 ert 028761 000010 CMP #8.,Ri our OF ORIVES? 
4580 014166 3361 GT 1$ ; BRANC ANCH IF NO 
4581 14170 194413 3s RESREG RESTORE R 
4582 014172 105037 007623 CLRB ACTSTR 3 0 ACTIVE - _ SOF THARE TIMEOUT ROUTINE FLAG 
583 014176 012616 4S: MOV (SP)+, (SP) ‘ADJUST THE 
4584 014200 00020 RTS PC : RETURN 
B86 ;SOFTWARE TIMEOUT ROUTINE 
4588 :NOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6 
4589 : OR GREATER 
4530 ; 
4591 :CALL: STO 
4592 : MOV sORVNUM, R1 ;DRIVE NUMBER 
4593 ; JSR PC,STO >CALL 
wegd : RETURN 
45 14202 010146 STO: MOV R1,-(SP) A 
aeae Bt aSoa Bt esac MOV R3 -(5P) 38 NE RS 
4598 014208 013704 007704 MOV R.RY T-ADORESS_ 0 OF cRPCS1" 
45399 O14el 10164 000010 V Ri. ésecr4) ee ect ORIVE 
4600 014216 7 014636 Sp "RD. RP READ vORIVE STATUS REG” 
meh Biuess Biaeds ore 
1 Ss (SP)+ ve 
Biusse foe FeB a1? 

weeps Bluse I eet i oR Tey 
4605S O14 761 007576 STOL: STB INT(R1) RYING 53 INTIALIZE THE DRIVE ? 
46 14236 10 BNE TO2 :BR_IF 
46 hes : 1 007606 TsTB erogsc ioe aE i PORT REQUEST FOR THE DRIVE ? 

14 13 7616 MOV T,Re CKUP ANSFER WAIT QUEUE 
ar 14 OL geez CHP i , DTU ; rer ONDE RisAy ON THIS DRIVE? 
46 1 14 7 0160 isk GETREQ *GET SS 
4613 014264 1 oo00016 1S: BIS r tfis' 61109, 16RE) T FLags 
4614 iseze 7 15200 JSR PC VRHI I ly ere EGISTERS 
4615 014276 012764 40 000010 MOV sbt CS2(R4) pei NIT HE MASS BUS 
4616 14304 Teer 7546 CLRB ORY tri) ;ORIVE IS IOLE 
461 14310 1 007624 CLRB ULDFLG(RI) ; CLEAR THE UNL FLAG 
4618 14314 CLR I :START WITH DRIVE rs) 
461 1431 CLR R 
4620 14358 0 010134 2s: ISR RO, ORVINT ;INIT. THIS ORIVE 
4621 O14 77 BR B18 : PARITY ERROR RETU 
doce 14 761 007546 STB VACT(RI) > DRIVE BEFORE THE INIT.? 
4 14 4i4 BEQ 4$ + YES-- ra 

14 1 9076 6 MOV TRNSUT, Re ; T ER WAIT QUEUE 
4625 O14 0 7670 CMP Tu, Ri : THE O ON THIS DRIVE? 
ue iq 1735 0 fee Ee ee ANE POINTER FROM QUEUE 
46 14 7 ee 000016 3S: BIS wetfie Bt T08, 1eche) IN USER OF IN 
4629 0143 105061 S46 CLRB T’DORIVE ACTIVE To! Mle 
4630 014364 105061 9007624 4$: CLRB OP OFLGCRE ) 35 UNL OAG 


CZRICBO RPO4/5“6 HEAD ALNMT MACY11 30(1046) O4-NOV-77 17:31 PAGE 87 
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463 14370 7 177777 007650 MOV 8-1, TIMER(R3)  ;STOP THE TIMER 
aT 14 76 7 TST (R3}+ ; UPDATE HE _ INDEX 
144 1 INC R : INCREMENT THE DRIVE NUMBER 
43s O14 701 000010 cnr #6. ,R1 :LAST VE BEEN CHECKED? 
46 144 GT NQ- NO-=L 
1441 7 177777 067670 MOV 8-1, OTUW aT FERS UNDERWAY 
1441 7616 CLR TRNSWT ;CLEAR T RANCPER La 
G38 ave 15662 JSR PC CLRQUE : AR ALL RESUEST 1H UE 
46 1436 eae 000016 STO02: MOVB (R4) RS ;READ ATTENTION REG 
4641 O144 136105 007672 BITB st ae RS ;IS ATTENTION FOR THIS DRIVE UP ” 
464 14449 001 17 BNE : YES-- H 
464 1444 19 1 007576 STB INT(R1) ian YING TO INTIALIZE THE DRIVE ? 
4644 wae 031 BNE ;BR YES - OR T NE 
464S 01 761 007606 TSTB QS(R1) iOUT T NG PORT RE T FOR THE ORIVE ° 
464% 014454 fous BNE STO FY NO RESP TO REQUEST 
4647 O14H5e 137 007670 CMP Ri OTUW BATA TRANSFER UNDERWAY FOR THIS DRIVE 
we4e 01 1 BNE toh. BR 
4649 014464 014636 SR RP ? YES--CHECK “RDY” 
4650 O14 RPCSI 
4651 01447 1 
woSe 14474 | 726 TSTB (SP)+ 
46 144 1 L STOl ;BR IF “ROY” =0 
4654 O01 1 007576 ST03: STB DPINT(R1) t INITIALIZING THE ORIVE ? 
4655 O01 1 [BR IF INIT PENDING 
WeS6 14506 1 7e1 007606 218 QS(R1) j POR a 3: ST PENDING ”? 
88 014514 O15763 177777 007650 1S: MOV ao} TIMER(RS) STOP THE TIMER 
4660 O01 7 012174 stos: J Pc,cie :GO HANDLE THE PARITY ERROR 
4661 Bi4e50 Boa43> st 
4662 Oitsse if6061 nn7576 ST06:  CLRB INT(R1) ; CLEAR THE ee 7 INDICATOR 
4663 ol 007656 CLRB DRVSTA(R1) He 
4664 01454 i i 007650 MOV &-i, TIMER(R) i876 
4665 0145 7 16034 JSR Pc, GETREG 3 GE aus 
We66 14554 702 TST RE i RE N QUEUES? 
466 145 1424 BEQ aie 
webs 014566 i 140000 000016 BIS uel 1S!BIT14, 16¢F het! NEORM THE USER DRIVE NOT AVAILABLE 
uer0 01457 477777 007650 ST07: MOV SUIRERCRS) iar ante 1 IMER 
4671 014576 1 7606 CLRB ti ; i CLEAR T REQUEST INDICATOR 
4672 014602 737 016034 JSR ; S 
4673 Bhser8 7 TST :Q ENTR Y FOR ORIVE ? 
4675 01461 127 00004 900016 MOV 97, 'BIT2, 16(R2) NORE USER OF PORT REQUEST ERROR 
4676 Bi 4eo5 pieaes nytate stog: JSR Ps enptea ceAA TRE HE QUEUE FOR THE DRIVE 
4677 Ol 737 015200 JSR PC’ ERM SAVE TH THe REGISTERS 
Wer Disease OLSEOT ee (3) 78 ESTORE Ri 
4680 014634 000207 RTS Pp . REF on 
wege ;ROUTINE TO READ A RH11/RPO4/S/6 REGISTER 
4684 > CALL 
4685 ; ISR RO, ROD. RP $60 READ A REGISTER 
4ERE ; INDEX REG. INDEX FROM BASE 
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4687 ; ERRADR OR ADDRESS--PROCESS ERROR STARTING 

we89 : RETURN AY THe. bP sae IS ON THE STACK 

W631 14636 007702 015000 AD.RP: MOV MCPEMX RO . RP2 ; MAX. RETRY 

46 14644 MOV (SP), -tsSP) ;SAVE Fe 

46393 O14646 7704 014662 MOV RPADR, RD. ADR : THE 

4694 014654 14662 ADD (RQ) + RD. ADR : Bea THE ee TIE 

4635 14659 RD RPA: MOV (PC)4, (PC)+ ; THE 2 GISTER oF THE RPOY 

4696 O01 R : - WORD : nit HE 

4697 014664 RD.WRO: .W iRE NTs He ou HERE 

4698 O1N6E6 O14e64 oo0002 MOV . .WRO,2(SP) ine font IT TO T R 

4699 O01 o4 MOV RPADR, ~ (SP) PU aL. 8.08 HE STACK 

4700 O14 aRPC , (SP) > FORM S OF RPCS2 

4701 O14 Br #BITic, a(SP)+ i CHECK “Tee he y Bit 

q705 Blasts 727 AOY BR PROR (SP) rR ad RPCSI. dorset 

4704 ptt b250n8 BIT aBIT13, (S ) : ii MC bere 

4705 01472 B 1 ?BRANCH IF YES 

4706 0147 C (SP4 (RO)+ :ADJUST FOR RETURN 

4707 0147 BR RP4 sEXI 

4708 014730 : 
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7 RELATED INDEX ERROR, GROUND THE FOLLOWING PINS: 7<CR><LF> 


/ RPO4: PIN ALAOSOB (FUNCTION '+TPNDEXER’ )7<CR><LF> 


a RPOS’6: PIN DOYRIS (FUNCTION ’-INDEX* )d<CR><LF><LF> 


<CR><LF>/DRIVE NOT AVAILABLE/<CR><LF><LF> 


<CR><LF>/ENTER ORIVE NUMBER: / 


<CR><LF>/DRIVE NOT WRITE PROTECTED~<CR><LF><LF> 


7 HEAD OUT OF RANGE’ 
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HEADER: 
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VERIFY: 


ALIGN: 


EXER: 


HDZERO: 
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CYL4S6: 


ALN24S: 
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-ASCII <CR><LFDZ 


-ASCIZ / 


\ASCIZ /ACLIGN), V(ERIFY), OR E(XERCISE) ? / 


-ASCIZ /VERIFY/<CR><LF><LF> 
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HEAD CYL (IN U INCHES) /<CR><LF><LF> 


-ASCIZ /ALIGN/<CR><LF><LF> 


-ASCIZ /EXERCISE/<CR><LF><LF> 


-ASCIZ /HEAD O SELECTED BY DEFAULT/<CR><LF><LF> 


-ASCIZ /CYLINDER 496 SELECTED BY DEFAULT/<CR><LF><LF> 


“CYLINDER 24S SELECTED BY DEFAULT/<CR><LF><LF> 


/DISK IS POSITIONED AT CYLINDER 24S/<CR><LF><LF> 
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/DISK IS POSITIONED AT CYLINDER 496/<CR><LF><LF> 
<CR><LF>/ENTER HEAD: 
<CR><LF>/ENTER CYLINDER ADDRESS: / 


ZINVALID HEAD ADDRESS/<CR><LF> 


ZINVALID CYLINDER ADDRESS/<CR><LF> 
<CR> <LF><LF> /DONE/<CR><LF><LF> 


/RH11 INTERRUPT OCCURRED (RPAS=0) / 


/UNEXPECTED ATTENTION OCCURRED/ 


*MASSBUS PARITY ERROR (MCPE=1)7 
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/MASSBUS PARITY ERROR (PAR=1)/ 


7ADDRESS PLUG CHANGE BIT SET’ 


/RH11 DIDN’T RESPOND TO ADDRESSING’ 


/DRIVE OR DATA ERROR/ 


/DRIVE UNSAFE ERROR/ 


“HEAD OUT OF ALIGNMENT 


“HEAD TOO FAR OUT OF ALIGNMENT’ 


“SOFTWARE TIMEOQUT/ 


/UNCORRECTABLE MASSBUS PARITY ERROR’ 


“DRIVE UNAVAILABLE 
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/DRIVE RPDS 1 RPER1 RPER2 RPERZ RPAS/ 


/DRIVE REG ADR DATA 


/ORIVE REG ADR GOOD BAD/ 


7RH ADDRESS/ 


/ORIVE RPCS1 RPCS@ RPOS1 RPERL RPER2 


/ TRK CENTER/<CR><LF> 


CYL (IN U INCHES) / 
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SEG C1CE 
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-ASCIZ 


. EVEN 
. WORD 
. WORD 


. WORD 


- BYTE 


-BYTE 


-BYTE 
-BYTE 


-BYTE 


-BYTE 
BYTE 


sorte “ROUT ENE. 8 


0 With Ago! 
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/ORIVE/ 


ATTN,O 

DRIVE, RPERRS, RPERRS+2, RPERRS+4,RPERRS+6,ATTN,O 
DRIVE ,RO.ADR,RO.WRO,O 
ORIVE,WRT.AD, WT. WO,RD.WRO,O 

SRPADR , 0 

DRVSEL , REG, REG+RPCS2, REG+RPDS1 , REG+RPER1 , REG+RPER2, REG+RPER3, 0 
SHEAD , OPB+CYL,PLUS,S 

SHEAD , DPB+CYL,O 

DRVSEL ,O 

0 

0,0,0,0,0,0 


0,0,0 
0,0,0,0 


0,0,0,0,0,0,0 
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1,1 
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CZRICB.P11 BvcNovee? Te BUS - GET BUS AoRess AND GECTOR ADDRESS FOR RH11 SEG o106 


; REQUIRED. 
snare HIS ROUTINE DESTROYS RO-RY 


; JSR PC, BUSADR 





; RETURN 
77700 HIAD: .WORD 177700 
boo776 HIVEC: - WORD 76 
th t4 001242 BUSADR: isy CHGADR t INPUT FROM TTY REQUESTED? 
7? oole4e CLR CHGADR --CLEAR THE REQUEST FLAG 
Bis700 boise Is: 800s SSRPADR, RO Bis ADDRES 
04401 Oe2220 TYPE MRPCS1 “RPCS1= 
204g MOV tRO)+,-(SP) NT RPCS1 ADDRESS 
1 TYPOC :T 
1 ol o22242 TYPE , LISP 
bi zor MOV (SP)+ : EO TRSCII TEXT 
013737 021772 021776 a MOV HIAD, CRArr Ep ADDRESS_ MAX 
: MOV ,R2 ; UPPER —— OF INPUT 
000 . ENDC 
6835 2 022246 JSR RS,CK.NUM pan THE NUMBE iy ene 
2148 73 Te + ENT re 
2064 33 ae A CARRIAGE RETURN 
2012 1$ Ha ° 
4 4g tt a «te 
fee ue: Hite age 
127; 1266 ; MOV bSRPVEC, RO T FAULT VECTOR ADDRESS 
BisoMe nov . cao) )+,-tSP) : Ne “ees VECTOR ADDRESS ON THE STACK 
iGavGl oz2eue TYPE, LINSr ee 
01 4 MOV (SP)+,R1 iBSciT T xt" ADDRESS ‘ 
l 737 021774 021776 aa i MOV HIVEC; LIMIT :§ HE VECTOR-MAX 
: MOV ,R2 ;UPPER LIMIT OF INPUT 
000 .ENDC 
5783 02 i D0453? 022246 JSR RS, CK.NUM ; CHECK THE NUNBE R, + on 
e7 is ps5 7 iy ENTE ERED 
2569 oS 1 ae 4 NATED WITH a CARRIAGE RETURN 
5788 Oeel 7 3 
5789 Ge 1 4 4g TERM NATED ry e wie 
5790 14 1 77776 4S: MOV sBiRQ) 
5791 Oeel 13 1 0004 7$: MOV Peay C,R1 SAVE THE et of NECTOR 
5792 eel 127 2206 OOcc04 MOV 18, ERBVEC :SETUP F 
6793 O22160 005777 157100 TST : CHECK FOR RAI 


czRJCBO RPOY- ‘58 HEAD_ALNMT MACY11 30(1046) O4-NOV-77 17:31 P 
CZRICB.P11 nett 12:49 BusAOR GET BUS Aookesé oe ADDRESS FOR RH11 SEO 0109 
S794 gigs 4 MOV R1, ERRVEC RROR VECTOR 
5795 1 i 1 4 MOV as ADR, RO a an & OF NEW PARAMETERS 
27 36 2174 i 7 O4 nov BRPAOR RI OF WHERE TO PUT THEM 
et S589 Bi nov Rods; CAL) 
2508 10137 ooo0004 8S: MOV RI, ERRVEC e ee CTOR 
2e1 CMP (SP) +, (SP)+ Cb AN THE STACK 
eels ERROR 6 REPORT THE ERROR 
16 BR g ASK FOR BUS ADDRESS 


seepeceeees 


oe8ee 9s01 051503 020061 MRPCSI: .ASCIZ @RPCSI = a 
2231 122 053110 O41SOS MRHVEC: .ASCIZ @RHVEC = 2 
022236 036440 000040 
2809 O22e42 020040 000 LINSP: .ASCIZ a a 
3811 22246 EVEN 
5813 TTL NUM - ne Eck NUMBER (OCTAL) 
5814 HIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS 
e815 ian. FORMS AN OCTAL NUMBER IN Re 
5817 : MOV #ADR,R ; ADDRESS. OF - ASCIZ STRING 
eis ee wax i 
$820 ; TURN act ONLY ENTER ED - 
5821 : TURN vENT ERED = -- ts) 
5822 : TURN ADR IL CEEGAL C R IN THE RE PUT STRING 
5823 : TURN 4 ian TERE -- R2 = NUMBER 
5254 : TURN 5 me 2 R 
5825 : TURN ADRE t~BERIOD” -- Re = NUMBER 
2659 10446 CK.NUM: MOV RY. -(SP) 
5828 a B1Baue MOV R3,-(5P) SAVE R3 
£629 MOV Re,-<(SP) 
30 4 CLR RY ; Ton POINTER 
CLR R3 ; T NUMBER R AT ZERO 
CLR 2 : STORE T 
022464 Jer RS,CK.CHR ; meek K HARACTER 
3e6 6 : ILLEGAL ER 
& 7 es ; CARRIAGE 
$ ;7.° 
1§ :DIGIT 0-7 
2 6S :DIGIT 8-9 
2e44 ? oo0004 1$: ADD #4,RS : NCRENENT RETURN PAST “CR” AND “PERIOD” ONLY RETURNS 
2s: ASL :FOR OCTAL NUMBER IN R3 
584 31 Bcs BS ‘DON’T LET IT GET TO BIG 
eBay 314 BC 6 
egue 463 aS B 
eee BC bs 
584 0b g.83 
5e4e 2324 22464 JS RS'CK.CHR ;CHECK ONE CHARACTER 
£849 022230 022272 es : ILLEGAL CHARACTER 


Boe Baenovesriosas MCAS SRIRUR)- Beck NuneeR (Bete seo 0110 
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re: 


5 ;CARRIAGE RETURN 
Ses? ASERRG BRERES ie 
fae : alae 
ty : T 6-9 
Sess ¥ 3S: Ste (Ri) : A “CR” FOLLOW THE “PERIOD” 
ege8 BNE thao ; NC NT T T 
4: 181 (R4)+ ; NT T TUR : 
ces 3 4 Ss: TST (R4)4+ ; NT T TURN INDEX 
021776 CMP MIT,R3 : VAL 00 LAR 
see See 10108 i ie Te ITT 
5 6$: ST ( 5) > INC NT T TURN ADDRESS 
5e64 3 at TST (RS)+ : Ne NT T TURN ADDRESS 
Seee 5355 Bibsbe a MO Ra’ Re 4 ENTERED VELUEE 
S86 bess ? TS (SP)4 ; E F HE STACK 
2ee5 BSsupe pise nov eee Ra IREeTORE Ra 
5870 O2e404 O115 MOV (RS),RS ; ? RETURN ADDRESS 
Bers 022406 000205 RTS RS : RETURN 
S87 
2B>e THIS ROUTINE I TO CHECK IF AN 
2876 ;ASCII CUARAETER yeep DIGIT BETWEEN O AND 7 
5878 ; MOV R,R1 ; RODRESS ASCII CHARACTER 
2Ba0 Pe TURN RS, Ck. OCT i SHARACT CHAT OT BETWEEN 0-7 
58e1 ; RE TURNE i SHARAC TER RI IN Re AS A 
536¢ ; :OCTAL DIGI 
pees 66418 12 187 000060 CK.OCT: cHPB (R1), 8°59 He THAN ZERO? 
16 tell 7 000067 CMPB aya? ATER I THAN SEVEN? 
eae? O2ee422 101004 BHI 18 YES = 
2e88 gies Hild MOVB ( 12-8 TH BRAARACTER 
2 177770 g : #tC7'R ig RIP Y THE ASCII 
5890 2432 0057 (RS)+ sp yuaT F OR RETURN 
5e3i 022434 0206 1S: RTS RS 
93 ; THIS ROUTINE D TO CHECK AN ASCII HARACTER 
eau ian. DETERMI Re iF IS A DIGIT BETWEEN SAND 
Ee y Cc CHARACTER 
39 : on RS, ReoeKe Rec iCheck EF ane 
: TURNE 


Pe Man T 


£900 
E901 

f 922436 421127 000060 CK.DEC: CMPB (1), 8°0 ‘EES. _THAN ZERO? 
S304 Spee iSibhe 000671 CMPB (Rl),a°9 :G ATER THAN NINE? 
Egos Oee4so 161004 BHI 1s YES -- BRANCH 
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HOS 


SREB PLT acne ig MACY SB RUN - BHEne Nomack’ iaereP ROE 11 SEG 0111 
Sons Peelse 111108 sme Bice h age SOE RIP Muse The Rect! 
: Osie¢ Bo? 3s FoF tress :BovUsr FOR Re FURR 
303 Oe 0002: 1$: RTS RS + RETURN 
cgi i THIS ROUTINE WILL CHECK AN ASCII CHARACTER TO 
2312 i DETERMINE WHAT Is. 
BIE | TR BE © FERRESE. SE BREA cnanncren 
5916 RE TURN I ;UNKNOWN CHARACTER 
5917 TURN g ;CARRIAGE RETURN # (R1)=ADR+1 
5318 TURN FR : s (RL) = +1 
easa : TURN abee iD at Erk ENG BN 7. 
5922 ; — Ree OPEL Te chi tones 
TANG ned ew ieereees gee” 
5926 gee470 121127 000054 CMPB (R1), 8", i “COMMA? % 
386 Sie eile ooooss che 1),@’. ;” R100 
ea5a 2504 004 7 022436 JSR RE, CK.DEC CB Rot 
2433 1 g g Re ‘Oe TaL i 
as Ele Gey czeno a cei 
pase peese0 05765 18 (RS)+ Digit BETWEEN 8-3 
re : OE ae: conn 
233 Oeesee a 3$ TST (RE)s :CARRI RETURN 
938 2 INC Ri ;MOVE POINTER TO NEXT CHARACTER 
5939 O22e53e 011505 4g MOY (RS), RS ;UNKNOWN CHARACTER 
E340 022534 9002 RTS RS RETURN 
5o4e 
5645 000001 END 
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